Yedekleme makrosunda hata

[airborne]

önceden office 2000 kullanırken dosyamı aşağıdaki kodlarla hatasıs bir şekilde yedekliyordum.

Private Sub CommandButton2_Click()
DizinAdi = "C:\Demirbaş\DemirbaşYedekleri"
CreateDirectoryEx "C:\Windows", DizinAdi, ByVal 0
cevap = MsgBox("C:\Demirbaş\DemirbaşYedekleri Klasörüne Yedeklenecektir. " & yedekyolu & " Devam etmek istiyor musunuz..?", vbYesNo, "Yedek Alma...")
If cevap = vbNo Then
ElseIf cevap = vbCancel Then
Exit Sub
GoTo son
End If
Application.StatusBar = " Belgeniz: C:\DemirbaşYedekleri\Demirbaş Yedek-" & Date & " olarak kaydediliyor... Lutfen Bekleyiniz..!"
dosyaadi = "c:\Demirbaş\DemirbaşYedekleri\Demirbaş Yedek-" & Str(Date)
ActiveWorkbook.SaveAs Filename:=dosyaadi & ".xls"
son:
End Sub

ama şimdi office 2003 kullanmaya başlayandan beri

ActiveWorkbook.SaveAs Filename:=dosyaadi & ".xls"

satırında hata veriyor ve yedekleme yapmıyor. sebebini çözemedim

 

[Levent Menteşoğlu]

CreateDirectoryEx "C:\Windows", DizinAdi, ByVal 0

yukarıdaki satırı komple silin.

 

[airborne]

üstadım sildim makroyu çalıştırdım ama aynı hatayı verdi

 

[Levent Menteşoğlu]

Kodların en üstündeki api tanımlamalarınıda silin. (Bu işlem için api kullanmaya hiç gerek yok)

 

[airborne]

teşekkürler üstadım