| |
こんにちは
コマンドプロンプトあまり良くわかりません
よろしくお願い致します
デスクトップにフォルダを作成しようと
セルA1にa、A2にb、A3にc
と入力し
Sub MkDIR1()
Dim FileNumber1 As Integer
Dim File_Name As String
Dim MyPath As String
Dim Rc As Long
Dim a As Integer
MyPath = "C:\Documents and Settings\hoge\デスクトップ\"
'MyPath = "C:\'Documents and Settings'\hoge\'デスクトップ'\" 'NG
'MyPath = "C:\""Documents and Settings""\hoge\""デスクトップ""\" 'NG
'MyPath = "C:\" & """Documents and Settings""" & "\hoge\" & """デスクトップ""" & "\"
'MyPath = "C:\" & """Documents and Settings""" & "\hoge\" & """デスクトップ""" & "\"
FileNumber1 = FreeFile
Open MyPath & "MkDIR1.bat" For Output As FileNumber1
'Print #FileNumber1, "Chdir " & MyPath
a = 1
Do Until Cells(a, 1) = ""
'Print #FileNumber1, MkDir; MyPath & Cells(a, 1)
Print #FileNumber1, "MkDir " & MyPath & Cells(a, 1)
a = a + 1
Loop
Close #FileNumber1
'Rc = Shell(MyPath & "MkDIR1.bat", vbHide)
End Sub
で出来た、MkDIR1.bat
MkDir C:\Documents and Settings\hoge\デスクトップ\a
MkDir C:\Documents and Settings\hoge\デスクトップ\b
MkDir C:\Documents and Settings\hoge\デスクトップ\c
を、実行したのですが
C:\Documents and Settings\hoge\デスクトップ\and
C:\Documents and Settings\hoge\デスクトップ\Settings
のフォルダが作成され
C:\Documents and Settings\hoge\デスクトップ\Settings
のなかに
C:\Documents and Settings\hoge\デスクトップ\Settings\hoge
のなかに
C:\Documents and Settings\hoge\デスクトップ\Settings\hoge\デスクトップ
のなかに
a
b
c
となってしまいました
で、バッチを
MkDir C:\"Documents and Settings"\hoge\"デスクトップ"\
のようにすると、
デスクトップにa,b,cのフォルダを作成することが出来ました
Q1
MkDir C:\Documents and Settings\hoge\デスクトップ\a
デスクトップにand,Settingsのフォルダが出来る動作が良くわかりません
ためしに、
イミディエイトウインドで?Application.DefaultFilePath
C:\Documents and Settings\hoge\My Documents
となっています
この辺、解説お願い頂ければうれしいです
Q2
MyPath = ・・・
で、色々試してみましたが
MkDIR1.batに
MkDir C:\"Documents and Settings"\hoge\"デスクトップ"\
と出力することが出来ませんでした
どのように記述すればよいでしょうか
よろしくお願い致します
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
