Excel VBA質問箱 IV

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

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


68698 / 76734 ←次へ | 前へ→

【12568】Re:フォルダの存在チェックができません
お礼  みーちゃん  - 04/4/7(水) 18:09 -

引用なし
パスワード
   ▼Asaki さん:

んと、
ある本をお手本にして見てやっていたのですが...

こんなことしなくても、これでよいと分かりました。
すみません。m(_"_)m

sub aa()

 Dim DirName As String

 DirName = Sheets("read").Cells(14, "C")
 If (Dir(DirName, vbDirectory) = "") Then
   Call MsgBox("*** フォルダがありません ***")
   Exit Function
 End If
End Sub

1 hits

【12566】フォルダの存在チェックができません みーちゃん 04/4/7(水) 17:47 質問
【12567】Re:フォルダの存在チェックができません Asaki 04/4/7(水) 17:51 回答
【12568】Re:フォルダの存在チェックができません みーちゃん 04/4/7(水) 18:09 お礼

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