Sub フォルダ情報のファイル確認()
    Dim FSO As New FileSystemObject
    Dim MyFolder As Folder
    Dim MyFile As File
    Dim strFolder As String
    Dim strFile1 As String
    Dim MyPath As String

    strFolder = "Sample"
    strFile1 = "File1.csv"
    
    MyPath = CurrentProject.Path & "\" & strFolder
    Set MyFolder = FSO.GetFolder(MyPath)

    For Each MyFile In MyFolder.Files
        
        If MyFile.Name = strFile1 Then
            MsgBox strFile1 & "があります"
            Exit For
        End If
    
    Next
    
    Set MyFolder = Nothing
    Set FSO = Nothing
End Sub

 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ