set fs = WScript.CreateObject("Scripting.FileSystemObject") dataBaseFolder = "D:\dataBase_zero"'希望のパスに書き換えれ! If Not fs.FolderExists(dataBaseFolder) Then fs.CreateFolder(dataBaseFolder) End If for each objName in WScript.Arguments If fs.FileExists(objName) Then exName = fs.GetExtensionName(objName) dataFolder = exName & "_data\" dataPath = fs.BuildPath(dataBaseFolder, dataFolder) filePath = fs.GetAbsolutePathName(objName) If Not fs.FolderExists(dataPath) Then fs.CreateFolder(dataPath) End If fs.CopyFile objName, dataPath MsgBox("ファイル " & objName & VBCR & "コピー先 " & dataFolder)'メッセージがうざかったらこの行を消す End If Next |
有楽町丸井 カテゴリ:脱キモオタ 2007/09/15 15:55:54 |
|
Elastic カテゴリ:脱キモオタ 2007/02/13 00:55:22 |
|
スタイルコネクション カテゴリ:脱キモオタ 2007/02/13 00:33:58 |