Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


21707 / 76732 ←次へ | 前へ→

【60415】BATファイル作成実行でフォルダ作成
質問  ON  - 09/2/20(金) 16:30 -

引用なし
パスワード
   こんにちは

コマンドプロンプトあまり良くわかりません
よろしくお願い致します

デスクトップにフォルダを作成しようと

セル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\"デスクトップ"\
と出力することが出来ませんでした
どのように記述すればよいでしょうか

よろしくお願い致します

1 hits

【60415】BATファイル作成実行でフォルダ作成 ON 09/2/20(金) 16:30 質問
【60417】Re:BATファイル作成実行でフォルダ作成 Jaka 09/2/20(金) 17:06 発言
【60418】Re:BATファイル作成実行でフォルダ作成 ON 09/2/20(金) 17:13 発言
【60422】Re:BATファイル作成実行でフォルダ作成 neptune 09/2/20(金) 19:13 発言
【60424】Re:BATファイル作成実行でフォルダ作成 ichinose 09/2/20(金) 19:38 発言
【60506】Re:BATファイル作成実行でフォルダ作成 ON 09/2/25(水) 12:10 お礼
【60507】Re:BATファイル作成実行でフォルダ作成 kanabun 09/2/25(水) 12:43 発言
【60526】Re:BATファイル作成実行でフォルダ作成 ichinose 09/2/25(水) 21:14 発言
【60529】Re:BATファイル作成実行でフォルダ作成 neptune 09/2/25(水) 22:20 発言
【60545】Re:BATファイル作成実行でフォルダ作成 ON 09/2/27(金) 10:14 お礼

21707 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free