APIを使ったファイル・フォルダの存在確認 : Excel(エクセル)

Excel Tipsメニューに戻る

スポンサーリンク



ExcelシートのVBAコード

Option Explicit

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

Private Sub CommandButton1_Click()
    'ファイルの存在確認
    If PathFileExists("C:\windows\隅田川.bmp") = 1 Then
        CommandButton1.Caption = "有り"
    Else
        CommandButton1.Caption = "無し"
    End If
End Sub

Private Sub CommandButton2_Click()
    'フォルダの存在確認
    If PathFileExists("C:\windows\") = 1 Then
        CommandButton2.Caption = "有り"
    Else
        CommandButton2.Caption = "無し"
    End If
End Sub

Excel Tipsメニューに戻る

スポンサーリンク






■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved