Sorgu için arama sonuçları: copyfile

...Set ds = CreateObject("Scripting.FileSystemObject") A = ds.FolderExists("E:\deneme") If A = True Then f = ds.CopyFile("E:\deneme\*.*", "E:\yedek001") MsgBox ("Veri Yedeklendi.. (deneme)"), vbInformation Unload Me Else MsgBox ("E:\deneme klasörü mevcut değil..")...

...yedeğini almak istiyor musunuz?", vbInformation + vbYesNo, "DURUM") = vbYes Then yol = "D:\YEDEKLER\" & ThisWorkbook.Name ds.CopyFile ThisWorkbook.FullName, yol End If End Sub Yukarıdaki kodlar dosya her kapatıldığında sorup yedekleme yapıyor Benim istediğim dosya her kapatıldığında değilde...

...Set FSO = CreateObject("Scripting.FileSystemObject") On Error Resume Next MkDir Yol On Error GoTo 0 FSO.CopyFile ThisWorkbook.FullName, Yol & Range("M1") & ".xls" MsgBox "İşleminiz tamamlanmıştır.", vbInformation End Sub Dosya ismini değil de ; Dosyadaki bir çalışma...

...& vbLf & "Dosya Oluşturulsun mu ?", vbQuestion + vbYesNo, " B İ L G İ") = vbNo Then Exit Sub CreateObject("scripting.filesystemobject").copyfile ThisWorkbook.Path & "\Hsyn istatistik\ŞABLON\SABLON.xls", ThisWorkbook.Path & "\Hsyn istatistik\" & Format(s1.Range("T6"), "mmmm") & ".xls" Call...

..."D:\YEDEKLER" End If If ThisWorkbook.Path = "D:\YEDEKLER" Then Exit Sub If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation + vbYesNo, "DURUM") = vbYes Then yol = "D:\YEDEKLER\" & Replace(Now, ":", "_") & "-" & ThisWorkbook.Name ds.CopyFile ThisWorkbook.FullName, yol End If...

...For Each Kaynak_Dosya In fso.GetFolder("D:\OCX").Files For Each Hedef_Dosya In fso.GetFolder("C:\Windows\System32").Files If Kaynak_Dosya.Name <> Hedef_Dosya.Name Then _ fso.CopyFile "D:\OCX\*.*", "C:\Windows\System32" Next Next End Sub

...?", vbInformation + vbYesNo, "YEDEKLEME") = vbYes Then Dim Yedek As String Trh = Format(Now, "dd.mm.yyyy hh_nn_ss") ThisWorkbook.Save ds.CopyFile ThisWorkbook.FullName, Kyt & "\" & Trh & uzanti Else End If If Excel.Application.Windows.Count > 1 Then ThisWorkbook.Save...

...c: sürücüsündeki bir dosyayı e: sürücüme aktarmak istiyorum bunu yaparken kullandığım kod ------- dim fso as filesystemobject fso.copyfile "c:\data.mdb", "e:\data.mdb",false ------- ama enteresan bir hata alıyorum anlayamadım. "Object variable or with block variable not set" nasıl...

...+ vbYesNo, "Mustafa MUTLU") = vbYes Then Dim Yedek As String Trh = Replace(Now, ":", "_") Kyt = "c:\YEDEKLER\" ThisWorkbook.Save ds.CopyFile ThisWorkbook.FullName, Kyt & Trh & ".xls" MsgBox "Yedek alma işlemi tamamlanmıştır.", vbInformation, "Mustafa MUTLU" Else MsgBox "Yedek alma işlemi...

...yol1 = ThisWorkbook.Path & "\" & adi yol2 = ThisWorkbook.Path & "\yedek\" If Dir(yol2, vbDirectory) = Empty Then MkDir yol2 Else End If Set varyedek= CreateObject("Scripting.FileSystemObject") varyedek.copyfile yol1, yol2 & adi & " - " & Replace(FormatDateTime(Now, 0), ":", ".") & ".xls" End Sub

...uzantıda dosyalar ve normal iç içe yeni klasörlerde var. Bunun için kodları nasıl değiştirmek gerekir.Değerli Bilgileriniz için şimdiden teşekkür ederim. Dim ds Set ds = CreateObject("Scripting.FileSystemObject") ds.CopyFile "\\Var-pc\YAPILAN İŞLER\*.xls", "\\Var-pc\Paylaşılan Dosyalarım\İŞLER\"

...sSourceDir = "C:\A\*.*" sDestinationDir = "C:\B" 'No ending back slash for the final directory! fso.CopyFile sSourceDir, sDestinationDir, True ------------------------------------------------------ Ama bu tür kodlar, "User-defined type not defined" hatası veriyor. Hatayı gidermek...

...a = ds.FileExists(yer & yer1) If a = True Then 'MsgBox "Bu isimde bir dosya var" 'On Error Resume Next DosyaSistemi.CopyFile ThisWorkbook.FullName, (yer & dosya_adı & sat) & ".xls" Else 'On Error Resume Next 'MsgBox "Bu isimde bir dosya yok" DosyaSistemi.CopyFile ThisWorkbook.FullName, (yer...

...Dim DosyaSistemi Set DosyaSistemi = CreateObject("Scripting.FileSystemObject") Dim ds, a Set ds = CreateObject("Scripting.FileSystemObject") a = ds.FileExists(yer) If a = True Then MsgBox "Bu isimde bir dosya var" Else DosyaSistemi.CopyFile ThisWorkbook.FullName, yer End If End Sub...

Selamlar forumdan buldugum bir makro ile usbdiske yedekleme yapıyorum. Sayın Korhan Ayhan arkadaşın eklediği örnek dosyadaki kontrol makrosu sayfadaki a1 hücresini kontrol ediyor bu kodlar usbdisk F: sürücüsünü kontrol edebilirmi eğer usbdisk takılı değilse MsgBox "USBDİSK TAKILI DEĞİL LÜTFEN...

...adından sonra gelen * yerine dosya adını yazıyorum. ) Sub YEDEK_AL () Dim ds Set ds = CreateObject("Scripting.FileSystemObject") ds.CopyFile "D:\APARTMAN\*.xls", "C:\YEDEK" End Sub Aslında yapmak istediğim şu; APARTMAN klasörü içindeki APT-08 dosyasını yine aynı klasör içine, adını...

...If fso.FileExists(kaynakdosya) = False Then MsgBox kaynakdosya & " " & " Dosyası Bulunamadı." Exit Sub ElseIf fso.FileExists(aradosya) = False Then MsgBox aradosya & " " & " Dosyası Bulunamadı." Exit Sub Else fso.CopyFile kaynakdosya, aradosya MsgBox "Dosya Başarıyla Kopyalandı." End If End Sub

...Sub CommandButton1_Click() On Error GoTo 10 MkDir ("d:\isos\" & Label2) Dim ds Set ds = CreateObject("Scripting.FileSystemObject") ds.CopyFile "D:\isos\file\*.xls", "d:\isos\" & Label2 MsgBox (Label2 & " YILINA AİT DÖNEM AÇILIŞI VE KULLANILACAK DOSYALARIN KOPYALANMASI TAMAMLANMIŞTIR.") Unload...

...kopyalatmak istiyorum. bunun için kodda nasıl bir değişiklik yapmam gerekir. Ya da tamamen farklı bir kod mu kullanmam gerekir. Cevaplarınız için şimdiden teşekkürler. sub kopyala() Dim ds Set ds = CreateObject("Scripting.FileSystemObject") ds.CopyFile "c:\1.xls", "d:\" end sub

...tüm Excel dosyalarını SXS klasörüne kopyalıyoruz: Sub Dosya_Kopyala() Dim ds Set ds = CreateObject("Scripting.FileSystemObject") ds.CopyFile "D:\Excelörnekleri\*.xls", "C:\SXS" End Sub kodları bir türlü çalıştıramadım. Farkettim ki; "C:\SXS" yerine "C:\SXS\" yazınca çalışıyor. Başlık...