Excelde yedekleme sorunu

[ticaret73]

BUTON YARDIMIYLA, C SÜRÜCÜSÜNDE ÇALIŞTIĞIM PROGRAMI E SÜRÜCÜSÜNE YEDEĞİNİ ALMAK İSTİYORUM FORUMU İNCELEDİM AMA SORUNU HALLEDEMEDİM ANASAYFADA YEDEK BUTONUNA TIKLIDIĞINDA E SÜRÜCÜSÜNE DENEME 2 KLASÖRÜNDEKİ SÜT xls ÇALIŞMA KİTABININ YEDEĞİNİ ALMASINI İSTİYORUM YARDIMCI OLACAK ARKADAŞLARA ŞİMDİDEN TŞK. ACİL

 

[Excelmy]

:dusun:

Caps Lock tuşunuz açık kalmış.

Dosya ekte.

 

[ticaret73]

Sayın kuman denedim ama e sürücüsüne boş klasör atıyor neden acaba

 

[halit3]

BUTON YARDIMIYLA, C SÜRÜCÜSÜNDE ÇALIŞTIĞIM PROGRAMI E SÜRÜCÜSÜNE YEDEĞİNİ ALMAK İSTİYORUM FORUMU İNCELEDİM AMA SORUNU HALLEDEMEDİM ANASAYFADA YEDEK BUTONUNA TIKLIDIĞINDA E SÜRÜCÜSÜNE DENEME 2 KLASÖRÜNDEKİ SÜT xls ÇALIŞMA KİTABININ YEDEĞİNİ ALMASINI İSTİYORUM YARDIMCI OLACAK ARKADAŞLARA ŞİMDİDEN TŞK. ACİL

bu kodu denermisiniz.

Private Sub CommandButton1_Click()
Dim DosyaSistemi
Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")
Dim ds, a
Set ds = CreateObject("Scripting.FileSystemObject")
dosya_adı = "C:\DENEME 2\SÜT xls"
yedek_dosya = "E:\SÜT xls"
a = ds.FileExists(dosya_adı)
If a = True Then
MsgBox "Bu isimde bir dosya var"
DosyaSistemi.CopyFile dosya_adı, yedek_dosya
Else
MsgBox "Bu isimde bir dosya yok"
End If
End Sub