|
▼VBAトーシロ さん:
>Do Until Dir(ThisWorkbook.Path & "\" & "*.txt") <> ""
> Kill Dir(ThisWorkbook.Path & "\" & "*.txt")
>Loop
>
>とやってみましたがダメでした・・・。
>どうすればいいのでしょうか?
Dir(ThisWorkbook.Path & "\" & "*.txt")
では、ファイル名しか取得できないようです。
さらに Kill は現在のフォルダを対称にするようで、
ChDir で現在のフォルダを変更するか、フォルダも指定する必要があるようです。以下に二つの例を示します。
あと、同じ条件でファイルを検索する場合、
Fn = Dir
とすることもできますよ。
ほかの方の方法が、確実で速そうですが。
Private Sub TxtDelete()
Dim Fn As String
Do
Fn = Dir(ThisWorkbook.Path & "\" & "*.txt")
If Fn <> "" Then
Kill ThisWorkbook.Path & "\" & Fn
Else
Exit Do
End If
Loop
End Sub
Private Sub TxtDelete()
Dim Fn As String
ChDir ThisWorkbook.Path
Do
Fn = Dir("*.txt")
If Fn <> "" Then
Kill Fn
Else
Exit Do
End If
Loop
End Sub
|
|