ワイルドカードでフォルダの削除 (ID:74897)

名前

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

本文 サンプル Private Sub Command1_Click() Dim fso As New Scripting.FileSystemObject Dim objDrive As Scripting.Drive Dim objFolder As Scripting.Folder Dim objSubFolder As Scripting.Folder Set objFolder = fso.GetFolder("C:\My Docments") For Each objSubFolder In objFolder.SubFolders objSubFolder.Delete Next Set objSubFolder = Nothing Set objFolder = Nothing Set objDrive = Nothing End Sub