yada önce belirtilen klasör var mı kodla kontrol edilip yoksa oluşturması sağlanabilir belki

---

yada aşağıdaki fonksiyon kullanılarak masa üstünün adresi alınabilir

Function GetDesktop() As String

    Dim oWSHShell As Object



    Set oWSHShell = CreateObject("WScript.Shell")

    GetDesktop = oWSHShell.SpecialFolders("Desktop")

    Set oWSHShell = Nothing

End Function