Sub Sample()
    Dim FSO As New FileSystemObject
    Dim MyPath As String
    
    MyPath = CurrentProject.Path & "\sample2\Sample.txt"

    If FSO.FileExists(MyPath) Then
        MsgBox "ファイルが存在します"
        FSO.DeleteFile MyPath
    Else
        MsgBox "ファイルが存在しません"
    End If
    
    Set FSO = Nothing

End Sub

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



Microsoft Office ブログランキングへ