デスクトップ上のCSVファイルの削除について

いつもお世話になっております。
ＶＢＡでまた難問に詰まってしまいました。ご教授お願い致します。

別のフォルダに保存されているマクロを利用して、とあるデータを作成するのですが
途中でデスクトップ上に一回保存をしたCSVファイルを最後に削除する
という動きをさせたいです。

下記のマクロだと、マクロとCSVファイルがデスクトップ上にあれば削除出来るのですが
マクロは常にとあるフォルダに保管されており、使用する人間はバラバラです。
※CSVファイルの他に3種類程データを作成するのですが
　マクロを使った人が使っているＰＣのデスクトップ上に保管する事になっております。
　上記の事から、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

No.1 ベストアンサー 回答者： n-jun 回答日時： 2013/07/08 22:59

http://www.moug.net/tech/exvba/0060052.html

myPath = CreateObject("Wscript.Shell").SpecialFolders("Desktop") & "\"

かな？

この回答へのお礼

ご提示いただいた内容に修正したらバッチリ希望通りの動きが出来ました。
この部分でかなり時間がかかっていたので大変助かりました。
ご教授いただきありがとうございました！

お礼日時：2013/07/09 21:23

No.2 回答者： kawais070 回答日時： 2013/07/08 22:59

過去のQ&Aを検索してみたら、以下の情報が見つかりました。

http://oshiete.goo.ne.jp/qa/1314881.html
これが役に立つかも。

この回答へのお礼

情報をお教えいただきありがとうございます。
こちらの内容も今後の参考にさせていただきます。

お礼日時：2013/07/09 21:16