Sub Sample()
    Dim FSO As New FileSystemObject
    Dim MyPath As String
    
    MyPath = CurrentProject.Path & "\sample"
    
    If FSO.FolderExists(MyPath) = True Then
        MsgBox "フォルダが存在します"
        FSO.DeleteFolder MyPath
    Else
        MsgBox "ファイルが存在しません"
    End If
    
    Set FSO = Nothing

End Sub

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



Microsoft Office ブログランキングへ