Excel VBA質問箱 IV

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

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


37564 / 76732 ←次へ | 前へ→

【44333】Re:フォルダの自動生成
発言  Blue  - 06/11/13(月) 14:11 -

引用なし
パスワード
   ▼どんぐりぼうず さん:
>この場合、フォルダ作成するときにフォルダが存在すると
>パス名が無効ですというメッセージが表示されます。(当り前なんですが)
>  fol = "C\TEST\" & Range("A1")
とりあえず、

C:\TEST\

のまちがいですかね?

すでにフォルダが存在するケースがあるのであれば、MkDirをする前に確認する必要があります。
Dir関数でvbDirectoryを指定すると確認できます。

fol = "C:\TEST\" & Range("A1")
' フォルダが存在するか(ない場合は空文字列)
If Dir(fol, vbDirectory) = "" Then
  ' フォルダの作成
  MkDir fol
End If
1 hits

【44315】フォルダの自動生成 どんぐりぼうず 06/11/13(月) 11:18 質問
【44317】Re:フォルダの自動生成 Blue 06/11/13(月) 11:48 回答
【44329】Re:フォルダの自動生成 どんぐりぼうず 06/11/13(月) 13:49 回答
【44333】Re:フォルダの自動生成 Blue 06/11/13(月) 14:11 発言
【44335】Re:フォルダの自動生成 どんぐりぼうず 06/11/13(月) 15:57 お礼

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