Excel VBA質問箱 IV

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

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


10061 / 76734 ←次へ | 前へ→

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

【72224】ファイル検索について kog 12/6/22(金) 11:55 質問
【72225】Re:ファイル検索について UO3 12/6/22(金) 12:53 発言
【72226】Re:ファイル検索について UO3 12/6/22(金) 13:35 発言
【72227】Re:ファイル検索について kog 12/6/22(金) 13:51 お礼

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