2008-10-14から1日間の記事一覧
Dim NewPath As String Sub CreateDir() NewPath = Path.GetDirectoryName(Fs(0)) & "\New_" & Format(Now, "yyyyMMdd-HHmmss") & "\" Directory.CreateDirectory(NewPath) End Sub Sub main() Dim SavePath As String = NewPath & Path.GetFileName(FilePat…