dosya aktarımı sorunu

[aherab]

arkadaşlar şimdi dizinden dizine kolay şöyleki ;

Private Sub Command1_Click()
FileCopy "c:\kus.txt", "D:\kus.txt"
Kill "c:\kus.txt"
End Sub

fakat ben bunu masaüstüne aktarmak istiyorum ama şöyle bir sorun var ;

adres şöyle olacak C:\Documents and Settings\mehmet\Desktop\kus.txt

işte sorun şu mavi olan yer ( mehmet ) başka pc de bu ali veya ahmet oluyor sonuç olarak bende komut çalışıyor fakat başka pc de yolu bulamıyor onu nasıl halledebilirim ?

 

[Taruz]

Merhaba..

Komutu verdiğiniz dosya farklı bir dizinde ise kodunuzdaki ilgili kısmı şu şekilde kullanın..:

Environ("userprofile") & "\Desktop\kus.txt"

Dosyayı masaüstünde çalıştırıyorsanız bu kodu da kullanabilirsiniz..:

Application.CurrentProject.Path & "\kus.txt"

 

[aherab]

şöyle yazdım ;
Private Sub Command1_Click()
a = Environ("userprofile") & "\Desktop\kus.txt"
FileCopy a, "D:\kus.txt"
Kill a
End Sub

işimi gördü teşekkürler sayın taruz

 

[aherab]

peki klasör için neden işlenmiyor hata veriyor kus adlı bir klasör için hata veriyor ?

cevabı :

Private Sub Command1_Click()
a = Environ("userprofile") & "\Desktop\ah"
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder a, "D:\ah"
End Sub

kolay gelsin