Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10134 / 76807

←次へ　｜　前へ→


	【72226】Re:ファイル検索について

UO3 - 12/6/22(金) 13:35 -


	引用なし

	パスワード

▼kog さん：

単一の指定ファイルの有無チェックでしょうから、以下のようなコードが参考になるかと。

Sub Sample()
　　Dim FSO As Object
　　Dim fName As String
　　Dim pName As String
　　
　　pName = ThisWorkbook.Path & "\"
　　fName = "ブックX.xls"
　　
'FSOによる存在有無の確認

　　Set FSO = CreateObject("Scripting.FileSystemObject")
　　If FSO.FileExists(pName & fName) Then
　　　　MsgBox "存在します"
　　Else
　　　　MsgBox "存在しません"
　　End If
　　
'標準のDIR関数による存在有無の確認

　　If Len(Dir(pName & fName)) > 0 Then
　　　　MsgBox "存在します"
　　Else
　　　　MsgBox "存在しません"
　　End If
　　
End Sub

1 hits

▼

【72224】ファイル検索について kog 12/6/22(金) 11:55