デスクトップ上のCSVファイルの削除について
いつもお世話になっております。
VBAでまた難問に詰まってしまいました。ご教授お願い致します。
別のフォルダに保存されているマクロを利用して、とあるデータを作成するのですが
途中でデスクトップ上に一回保存をしたCSVファイルを最後に削除する
という動きをさせたいです。
下記のマクロだと、マクロとCSVファイルがデスクトップ上にあれば削除出来るのですが
マクロは常にとあるフォルダに保管されており、使用する人間はバラバラです。
※CSVファイルの他に3種類程データを作成するのですが
マクロを使った人が使っているPCのデスクトップ上に保管する事になっております。
上記の事から、Killステートメントでファイル指定が出来ない状態(不特定のデスクトップ)です。
Sub test()
Dim myPath As String
Dim i As String
myPath = ThisWorkbook.Path & "\"
i = "テストデータ.csv"
If InStr(i, ".csv") = 0 Then i = i & ".csv"
If Dir(myPath & i) <> "" Then
Kill myPath & i
Else
End If
End Sub
不特定のデスクトップ上にあるcsvファイルを削除する事は可能でしょうか?
以上、宜しくお願い致します。
環境 WindowsXP Excel2003
お礼
ありがとうございました。 削除できました。