Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8051 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【35354】ファイルの存在を確認したい りょう 06/3/1(水) 13:52 質問[未読]
【35355】Re:ファイルの存在を確認したい Ｔ 06/3/1(水) 14:07 発言[未読]
【35356】Re:ファイルの存在を確認したい Jaka 06/3/1(水) 14:21 回答[未読]
【35385】Re:ファイルの存在を確認したい りょう 06/3/2(木) 17:36 お礼[未読]
【35373】Re:ファイルの存在を確認したい yuu1 06/3/2(木) 9:38 回答[未読]
【35354】ファイルの存在を確認したい
質問  りょう  - 06/3/1(水) 13:52 -
引用なし
パスワード
   いつもお世話になっております。。
フォルダー内に新しいファイルが入ったか確認したいと思っています。
ファイルを開くわけではなく、あるかどうかを確認したいのです。でも以下のようにやったらFALSEで返されました（今はフォルダーにファイルがある状態なのに）。
ファイル名は毎回通し番号登録なので変わります。

Sub ファイル確認()
　　Dim 新規依頼 As New Scripting.FileSystemObject
　　Dim Fn As String
　　With 新規依頼
　　　　Fn = "N:\再審依頼\Excelﾌｧｲﾙ,*.xls"
　　　　Range("H11").Value = .FileExists("Fn")
　　End With
End Sub
【35355】Re:ファイルの存在を確認したい
発言  Ｔ  - 06/3/1(水) 14:07 -
引用なし
パスワード
   Dir関数を調べてみましょう。


▼りょう さん：
>いつもお世話になっております。。
>フォルダー内に新しいファイルが入ったか確認したいと思っています。
>ファイルを開くわけではなく、あるかどうかを確認したいのです。でも以下のようにやったらFALSEで返されました（今はフォルダーにファイルがある状態なのに）。
>ファイル名は毎回通し番号登録なので変わります。
>
>Sub ファイル確認()
>　　Dim 新規依頼 As New Scripting.FileSystemObject
>　　Dim Fn As String
>　　With 新規依頼
>　　　　Fn = "N:\再審依頼\Excelﾌｧｲﾙ,*.xls"
>　　　　Range("H11").Value = .FileExists("Fn")
>　　End With
>End Sub
【35356】Re:ファイルの存在を確認したい
回答  Jaka  - 06/3/1(水) 14:21 -
引用なし
パスワード
   ワイルドカード使っている見たいですが...。
xx.xlsファイルがあるかないかでよければ。

Pas = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"
'Pas = "\\サーバー名\D\"
On Error Resume Next
CreateObject("WScript.Shell").CurrentDirectory = Pas
If Err Then
　 MsgBox Pas & vbLf & " と、つながってません。"
　 Exit Sub
End If
On Error GoTo 0
If Len(Dir(Pas & "*.xls")) = 0 Then
　 MsgBox "なんも無い。"
Else
　 MsgBox "なんかある。"
End If
【35373】Re:ファイルの存在を確認したい
回答  yuu1  - 06/3/2(木) 9:38 -
引用なし
パスワード
   こんにちは
基本的に変数の使い方がまちがっています。
Range("H11").Value = .FileExists("Fn")
↓
Range("H11").Value = .FileExists(Fn)
【35385】Re:ファイルの存在を確認したい
お礼  りょう  - 06/3/2(木) 17:36 -
引用なし
パスワード
   Jakaさん＞説明書に書いてあったのがファイル指定で、でも私のはそうではないので、ワイルドカードを使ってみたのですが、できませんでした。Jakaさんの教えていただいたとおりにやってみたらできました。ありがとうございます。。

Ｔさん、yuulさん＞参考になりました＆ご指摘ありがとうございました（書き間違えました(^-^;)　）
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8051 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free