Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

60029 / 76732

←次へ　｜　前へ→


	【21354】Re:フォルダ内の　.txtファイルを全て削除したい

VBAトーシロ - 05/1/19(水) 21:58 -


	引用なし

	パスワード

G-Luck : さん

レスありがとうございます。
dirについては、txtがある限り消すという方法？
やってみます。

Do Until Dir(ThisWorkbook.Path & "\" & "*.txt") <> ""
　 Kill Dir(ThisWorkbook.Path & "\" & "*.txt")
Loop

とやってみましたがダメでした・・・。
どうすればいいのでしょうか？

▼Jaka さん：
すいません・・。まだまだ私には難しすぎました・・・。
（すごすぎる・・・）　
>こんにちは。
>
>DOS版です。
>pas(対象フォルダのパス）は、直してね。
>
>Dim DfDr As String, ComL As String, pas As String
>DfDr = CurDir()
>pas = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\aaa"
>ChDir pas
>ComL = "COMMAND.COM /C del *.txt"
>Call Shell(ComL, vbHide)
>ChDir DfDr
>DoEvents

0 hits

▼

【21341】フォルダ内の　.txtファイルを全て削除したい VBAトーシロ 05/1/19(水) 15:14