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

    If FSO.FolderExists(MyPath) = True Then
        MsgBox "フォルダが存在します"
    Else
        MsgBox "フォルダが存在しません"
    
        FSO.CreateFolder MyPath
        FSO.CreateTextFile MyPath & "\sample.txt"
    
    End If
    
    Set FSO = Nothing

End Sub

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



Microsoft Office ブログランキングへ