|
こんばんは。
md "作成するフォルダ"
というようにフォルダ名を ダブルコーテーションで囲むだけでよいと
思いますけどねえ!!
Sub MkDIR1()
Dim FileNumber1 As Integer
Dim MyPath As String
MyPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
FileNumber1 = FreeFile
Open MyPath & "\MkDIR1.bat" For Output As FileNumber1
Print #FileNumber1, "md """ & MyPath & "\a"""
Print #FileNumber1, "md """ & MyPath & "\b"""
Print #FileNumber1, "md """ & MyPath & "\c"""
Close #FileNumber1
CreateObject("wscript.shell").Run """" & MyPath & "\MkDIR1.bat"""
End Sub
これでデスクトップ上に a,b,cという3つのフォルダが作成されましたよ!!
バッチファイルなんて、久しぶりです
|
|