#570 フォルダ内の全ファイルを削除するには? VBA

指定されたフォルダ内の全ファイルを削除する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

| Index | Prev | Next |

この情報は参考になりましたか?、問題は解決しましたか?、もしまだなら......
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします
 

Copyright © T'sWare All rights reserved