ファイル・フォルダの存在確認 : Excel(エクセル)

Excel Tipsメニューに戻る

スポンサーリンク





ExcelシートのVBAコード

Option Explicit

'Excel VBAでファイル、フォルダの存在確認
Private Function ExDir(sName As String, nAttr As Integer) As String
    If sName = "" Then
        ExDir = ""
        Exit Function
    End If
On Error Resume Next
    Err.Number = 0
    ExDir = Dir(sName, nAttr)
    If Err.Number <> 0 Then
        ExDir = ""
    End If
On Error GoTo 0
End Function

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

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

Excel Tipsメニューに戻る

スポンサーリンク






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


Copyright (c) Excel-Excel ! All rights reserved