Windows APIを使ったファイル、フォルダの存在確認 : Access




BackHome BackTipsへ Backメニューへ

■ Access VBA 実行コード

Option Explicit

'戻り値
'ファイルが存在するとき: 1
'ファイルが存在しないとき: 0
Private Declare Function PathFileExists Lib "SHLWAPI.DLL" Alias "PathFileExistsA" (ByVal pszPath As String) As Long



Private Sub コマンド1_Click()
    'ファイルの存在確認
    If PathFileExists("C:\windows\test.bmp") = 1 Then
        Me!コマンド1.Caption = "有り"
    Else
        Me!コマンド1.Caption = "無し"
    End If
End Sub

Private Sub コマンド2_Click()
    'フォルダの存在確認
    If PathFileExists("C:\windows\") = 1 Then
        Me!コマンド2.Caption = "有り"
    Else
        Me!コマンド2.Caption = "無し"
    End If
End Sub



BackHome BackTipsへ Backメニューへ

Copyright(C) FeedSoft