Excel VBA質問箱 IV

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

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


12073 / 13646 ツリー ←次へ | 前へ→

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

【12566】フォルダの存在チェックができません
質問  みーちゃん  - 04/4/7(水) 17:47 -

引用なし
パスワード
   Sheets("read").Cells(1, "C")にフォルダ名がフルパスで書いてあります。
 その値を変数へ取得して、そのフォルダ名が存在するかチェックしたいのですが、
 コンパイルエラーが出てしまい、"定数式が必要です"と言われてしまいます。
 良い解決法をおしえてください。

sub aa()
  
  Dim DirName As String
  Dim fileCheck
  
  DirName = Sheets("read").Cells(1, "C")
  Const Folder = ""& DirName &"" ← ここで怒られる(>o<)
  If (StrComp(DirName, vbNullString) = 0) Then
    MsgBox("フォルダを選択してください")
    Exit sub
  Else
    set fileCheck = CreateObject("Scripting.FileSystemObject")
    If (fileCheck.FolderExists(Folder) <> True) Then
      MsgBox("フォルダがありません")
      Exit sub
    End If
  End If
End Sub

【12567】Re:フォルダの存在チェックができません
回答  Asaki  - 04/4/7(水) 17:51 -

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

>Const Folder = ""& DirName &""
どうして Const なんでしょう?
普通に
Dim Folder As String
と宣言して
Folder = ""& DirName &""
ではダメですか?
というか、これ、要るんでしょうか?

【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

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