Home > PC > Access VBA ファイル有無チェック

Access VBA ファイル有無チェック

2007-08-05 (Sun) 11:52
PC ( MS Access ) , Work ( MS Access )

Access VBAでのファイル有無チェックに関するキーワードでここに来られる方もいるようなので念のため書いておきます。

以下簡単なAccess VBAサンプルコード。
動作の保証はできません。（マテ

Public Sub FileExist()

   Dim objFS As Object

   Dim strFileName as String 'ファイル名を格納

'FileSystemObjectを使うための呪文
Set objFS = CreateObject("Scripting.FileSystemObject")

'コピー元ファイルが存在しなければスキップ
'Application.CurrentProject.PathでMDBファイルのパス
   If objFS.FileExists(Application.CurrentProject.Path _
   & "\" & strFileName) Then

   'ここにファイルが存在した場合の処理を記述

Else
   'ここにファイルが存在しない場合の処理を記述
MsgBox strFileName & "　を見つけることができませんでした。"

End If

End sub

Local search for: Access VBA ファイル有無チェック

Google search for: Access VBA ファイル有無チェック

Trackback:No Trackbacks

TrackBack URL for this entry: Sorry, no trackback pings are accepted.
Listed below are links to weblogs that reference: Access VBA ファイル有無チェック from まやろぐ

トラックバック

このエントリにトラックバックはありません

Home > PC > Access VBA ファイル有無チェック