DeleteFolderメソッドでフォルダを削除するには？ (ID:75260)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Dir関数の変わりに 「FileSystemObject」の「fileExists」を使用してみてはどうでしょうか？ -------------------------------------- Private Sub Command1_Click() Dim fs As Object Set fs = CreateObject("Scripting.FileSystemObject") '///ファイルが存在していれば実行 '/// Text1.TextはＡフォルダのパス[例 "c:\a"] '/// Text2.TextはＢファイルのパス[例 "c:\a\b"] If fs.fileExists(Text2.Text) = True Then Kill (Text2.Text) fs.deletefolder (Text1.Text) End If End Sub