bat dosyası yapmak

[ahmet uguz]

arkadaşlar hepinize iyi akşamlar.c deki kalsörümü d ye kopyalamak için bir bat sosyası yapmak istiyorum.

xcopy c:\ebyn\*.* d:\ebynyedek yazıyorum, fakat eksik bir şey yazıyorum.nasıl yapabilirim.

 

[halit3]

arkadaşlar hepinize iyi akşamlar.c deki kalsörümü d ye kopyalamak için bir bat sosyası yapmak istiyorum.

xcopy c:\ebyn\*.* d:\ebynyedek yazıyorum, fakat eksik bir şey yazıyorum.nasıl yapabilirim.

klasörü kopyalamak için bu kodu denermisiniz.

Sub klasörüyedekle()
Dim DosyaSistemi
Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Dim Baslik As String
Baslik = "Kaynak Dosyaları İçeren Klasörü Seçin"
Set Obj = CreateObject("shell.application")
Set Klasor = Obj.BrowseForFolder(0, Baslik, 50, &H0)
kaynak = Klasor.items.Item.Path

If Not Klasor Is Nothing Then
If InStr(1, kaynak, "{") > 0 Then GoTo Atla
On Error Resume Next
On Error Resume Next
Dim ekBaslik As String
ekBaslik = "Hedef Dosyaları İçeren Klasörü Seçin"
Set Obj = CreateObject("shell.application")
Set Klasor1 = Obj.BrowseForFolder(0, ekBaslik, 50, &H0)
Kaynak1 = Klasor1.items.Item.Path
If Len(Kaynak1) = 3 Then
Kaynak1 = Mid(Kaynak1, 1, 2)
Else
Kaynak1 = Kaynak1
End If
If Not Klasor1 Is Nothing Then
If InStr(1, Kaynak1, "{") > 0 Then GoTo Atla1
On Error Resume Next
deger = InputBox("UYARI!" & Chr(10) & _
Chr(10) & " Yeni yedek Klasörün adını yazınız " & Chr(10) & Chr(10) & _
"", _
"DİKKAT !", "", , , "DEMO.HLP", 10)
On Error Resume Next
DosyaSistemi.CopyFolder kaynak, Kaynak1 & "\" & deger
Else
Atla:
MsgBox "Lütfen Hedef Klasör Seçimini Yapınız !", vbInformation, "DİKKAT"
End If
Else
Atla1:
MsgBox "Lütfen Kaynak Klasör Seçimini Yapınız !", vbInformation, "DİKKAT"
End If

End Sub

 

[BG]

Sayın ahmet uguz

arkadaşlar hepinize iyi akşamlar.c deki kalsörümü d ye kopyalamak için bir bat sosyası yapmak istiyorum.

xcopy c:\ebyn\*.* d:\ebynyedek yazıyorum, fakat eksik bir şey yazıyorum.nasıl yapabilirim.

sanırım probleminiz klasörlerin kopyalanmaması, bunun için /S parametresini kullanınız.

c:\
xcopy c:\ebyn\*.* /s d:\ebynyedek

 

[ahmet uguz]

teşekürler

sayın halit3 verdiğiniz cevap için teşekkür ederim.çok başarılı oldu.

 

[ahmet uguz]

yapamadım.

sayın gökhan sizin verdiginiz yanıtta tam olarak yapamadım.amacım c dizinindeki ebyn
dosyasını d dizinine ebynyedek dosyası adı olarak arşivlemek.bunun için bat dosyası yapmaya çalıştım.beceremedim.verdiğiniz yanıt için teşekkür ederim.

 

[halit3]

sayın halit3 verdiğiniz cevap için teşekkür ederim.çok başarılı oldu.

rica ederim iyi günler

 

[muygun]

Merhaba;
Başlat>programlar>komut sisteminden dos komut sistemine çıkın

cd\
copy con yedekle.bat
xcopy c:\ebyn\*.* d:\ebynyedek
F6
her satırı tek tek yazın ve enter ile alt satıra geçin son satır (F6) fonksiyon tuşlarından F6 yı ifade ediyor
C' de yedekle.bat dosyasını çalıştırırsanız verileriniz d sürücüsünde ilgili dizine aktarılır.

 

[ahmet uguz]

Yine olmadı

sayın muygun dediğiniz gibi yaptım kayıt etmedi dosyayı.

 

[muygun]

sanırım aynı isimli kayıt olduğundan onay istiyor. Tümü yani t harfine basarsanız kayıt yapıyor ama bunu kaybetmek lazım.
xcopy ile ilgili ekli dosyayı ve parametrelerini inceleyin.

 

[ahmet uguz]

teşekkürler.

sayın muygun verdiğiniz cevap için teşekkür ederim.verdiğiniz bilği yararlı olacagına eminim.

 

[ahmet uguz]

yararlı oldu.

sayın muygun,bana cevaben yazdığınız bilğiler bana faydalı oldu,çok teşekkürler.