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