08/12/05 21:42:25 IXOXam+Y0
>>343
安直にやりたければこの部分を単に繰り返せばいい
strFolder = "Z:\Temp"
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If Err.Number = 0 Then
If objFSO.FolderExists(strFolder) = False Then
objFSO.CreateFolder(strFolder)
End If
End If
strFolder = "Z:\Work"
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If Err.Number = 0 Then
If objFSO.FolderExists(strFolder) = False Then
objFSO.CreateFolder(strFolder)
End If
End If