Desktopa kaydetme..

[xrolexx]

Merhaba arkadaslar,

Bir dosyayi farkli bir bilgisayarda bir form üzerinden ve kod yardimiyla direktDesktop'a kaydettirmek istiyorum. Fakat her kullanicinin adi biliyorsunuz ki degisken olabiliyor. Asagidaki gibi;

"C:\Documents and Settings\KULLANICI\Desktop"

Desktop'un bunun icin özel bir patch tanimi var midir? Yani hangi PC'de olursa olsun istenilen dosya kod yardimiyla kaydet denildigi zaman direkt o PC'nin desktopuna kaydedilsin istiyorum..Veya asagidaki kodu nasil düzenlemeliyim?

NOT: Formun oldugu dosya desktopta olmayabilir. Bu yüzden asagidaki kod maalesef etkili olmuyor.

Application.CurrentProject.Path & "\Deneme.xls"

Simdiden tesekkürler..

 

[Haluk]

    Dim WshShell As Object
    Set WshShell = CreateObject("WScript.Shell")
    MsgBox WshShell.SpecialFolders("Desktop")

 

[xrolexx]

Haluk Bey tesekkürler, ancak dogrusunu söylemek gerekirse vermis oldugunuz kodlari kendi kullandigim kodlara nasil uyarlayacagimi kestiremedim. Size bu yüzden kullandigim kodlari da yaziyorum..Sizden ricam bu kodlarin üzerinde bir degisiklik yapabilir miyiz?

Private Sub Command434_Click()
On Error Resume Next
Kill Application.CurrentProject.Path & "\Report.snp"
DoCmd.OutputTo acExportReport, "Reports_A_0", "Snapshot", Application.CurrentProject.Path & "\Report.snp"
MsgBox "File is saved on the desktop.", vbInformation, "Save process.."
End Sub

 

[Haluk]

Private Sub Command434_Click()
    Dim WshShell As Object, strDeskPath As String
    Set WshShell = CreateObject("WScript.Shell")
    strDeskPath = WshShell.SpecialFolders("Desktop")
    On Error Resume Next
    Kill strDeskPath & "\Report.snp"
    DoCmd.OutputTo acExportReport, "Reports_A_0", "Snapshot", strDeskPath & "\Report.snp"
    MsgBox "File is saved on the desktop.", vbInformation, "Save process.."
End Sub

 

[xrolexx]

Emegine saglik cok tesekkürler..

 

[Taruz]

Merhaba..

Bunuda alternatif düşünebilirsiniz..

Private Sub Command434_Click()
On Error Resume Next
Dim kullanici As String
Dim sil As String
kullanici = Environ("Username")
desk = "C:\Documents and Settings\" & kullanici & "\Desktop\Report.snp"
Kill desk
DoCmd.OutputTo acExportReport, "Reports_A_0", "Snapshot", desk
MsgBox "File is saved on the desktop.", vbInformation, "Save process.."
End Sub

 

[Bilgisayarcı09]

Environ güzel fonksiyonmuş.
Fakat sayın Taruz şu aşağıdaki windows'un D'ye kurulduğu gibi durumları da karşılar sanırım.
MsgBox Environ("HomeDrive") & Environ("HomePath") & "\Desktop"

 

[sinandemirez]

bir batch yap
XCopy "yol\*.lnk" "%allusersprofile%\Desktop\*.*" /y


tüm oluşturduğun kullanıcalra kısayol yada programı masaüstüne yada desktopa koyar