|
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
|
|