フォルダを新しく作成
'処理したいファイルを別ディレクトリにコピーするためのフォルダを新しく作成します Dim SaveDocDir As String = Path.GetDirectoryName(Fp(0)) & "\png_" & Format(Now(), "yyyyMMddHHmmss") & "\" MkDir(SaveDocDir)
'処理したいファイルを別ディレクトリにコピーするためのフォルダを新しく作成します Dim SaveDocDir As String = Path.GetDirectoryName(Fp(0)) & "\png_" & Format(Now(), "yyyyMMddHHmmss") & "\" MkDir(SaveDocDir)