#570
指定されたフォルダ内の全ファイルを削除するSubプロシージャの例です。
たとえば「EmptyFolder "C:\data\"」というように呼び出して実行することによって、"C:\data\"フォルダ内のすべてのファイルを削除しフォルダを空にします。ただし、指定されたフォルダ直下にあるファイルを削除するだけで、その下のサブフォルダ内のファイルまで削除したりサブフォルダ自体を削除することまでは考慮していません。
Public Sub EmptyFolder(strFolder As String)
'フォルダ内を空にする
Dim strFile As String
'最初のファイルを検索
strFile = Dir(strFolder & "*.*")
Do While strFile <> ""
'ファイルがあれば削除
Kill strFolder & strFile
'次のファイルを検索
strFile = Dir
Loop
End Sub
