Excel VBA質問箱 IV

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

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


68700 / 76734 ←次へ | 前へ→

【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
0 hits

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

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