Merhaba,
Sub kopyala()
kaynak = ThisWorkbook.Path & Application.PathSeparator & "Giris.xls"
hedef = Application.DefaultFilePath & "\SABiT\Giris.xls"
FileCopy kaynak, hedef
End Sub
Burada yapılmak istenen "Giris.xls" dosyasının Belgelerimdeki SABiT klasörüne kopyalanması. "FileCopy kaynak, hedef" satırı işaretli hata veriyor. Path not found. Halbuki kopyalanmak istenen "Giris.xls" dosyası var. Path da (dosya yolu) da doğru. Hepsi aynı klasörün içinde.
Sub kopyala()
kaynak = ThisWorkbook.Path & Application.PathSeparator & "Giris.xls"
hedef = Application.DefaultFilePath & "\SABiT\Giris.xls"
FileCopy kaynak, hedef
End Sub
Burada yapılmak istenen "Giris.xls" dosyasının Belgelerimdeki SABiT klasörüne kopyalanması. "FileCopy kaynak, hedef" satırı işaretli hata veriyor. Path not found. Halbuki kopyalanmak istenen "Giris.xls" dosyası var. Path da (dosya yolu) da doğru. Hepsi aynı klasörün içinde.