Sorgu için arama sonuçları: copyfile

Referansı eklediniz mi? kodarın başında açıklama olarak koymuşum. Kopyalama için fso.MoveFile yerine fso.CopyFile kullanın.

...Not arr(i, 3) = "Aktarıldı" Then ds1 = arr(i, 1) & Application.PathSeparator & arr(i, 2) ds2 = yol & arr(i, 2) fso.CopyFile ds1, ds2 ' fso.MoveFile ds1, ds2 arr(i, 3) = "Aktarıldı" adt = adt + 1 End If Next i...

Dediğinizi denedim ama aşağıdakinde hata veriyor ds.CopyFile ThisWorkbook.FullName, yol

...> 0 And Dir(DosyaYolu) <> "" Then Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") fso.CopyFile DosyaYolu, YeniKonum MsgBox "Dosya başarıyla kopyalandı!" Else MsgBox "Dosya bulunamadı veya geçerli bir dosya yoluna sahip değil."...

...> 0 And Dir(DosyaYolu) <> "" Then Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") fso.CopyFile DosyaYolu, YeniKonum MsgBox "Dosya başarıyla kopyalandı!" Else MsgBox "Dosya bulunamadı veya geçerli bir dosya yoluna sahip değil."...

kod çalışmıyor

...hh_mm") & uzanti Kayıt_Yeri = yer & Yedek_Dosya_Adı On Error Resume Next If Dir(yer) = "" Then MkDir yer On Error Resume Next DosyaSistemi.CopyFile ThisWorkbook.FullName, Kayıt_Yeri ActiveWorkbook.Password = "" Application.DisplayAlerts = True Application.Quit End Sub Private Sub...

Hocam harikasın. teşekkür ettim.

...1) 'yeni dosya adı, 2. sütundaki değer ve 1. sütundaki değerin birleşiminden oluşur. 'Dosya adı "DEĞER_A" şeklindedir. DosyaSistemi.CopyFile Yol & dosya, HedefKlasor & yeni_isim & ".pdf" 'dosya kopyalama işlemini gerçekleştirir. Exit For 'dosya kopyalanmışsa döngüden çıkar. Diğer hücrelerde...

...yeni_isim = Cells(X, 2).Text & "_" & Cells(X, 1) 'SAĞ TARAFTAKİ DEĞER SUTUN SAYISI 1(A) 2(B) GİBİ DosyaSistemi.CopyFile Yol & dosya, HedefKlasor & yeni_isim & ".pdf" Exit For End If Next dosya = Dir Loop Range(Cells(1...

...Set f = ds.GetFolder(Yol) Set dc = f.Files For Each dosya In dc If dosya.Name Like "*_01_2023*" Or dosya.Name Like "*_03_2023*" Then ds.CopyFile Yol & "\" & dosya.Name, Yol & "\yedek\" End If Next MsgBox "Kopyalama İşlemi Bitti" End Sub

...Set dc = f.Files For Each dosya In dc If dosya.Name Like "*_01_2023*" Or dosya.Name Like "*_02_2023*" Then ds.CopyFile Yol & "\" & dosya.Name, Yol & "\yedek\" End If Next MsgBox "Kopyalama İşlemi Bitti" End Sub *Dosya yoksa işleme devam etmez. Sub...

...Set f = ds.GetFolder(Yol) Set dc = f.Files For Each dosya In dc If dosya.Name Like "*_01_2023*" And dosya.Name Like "*_02_2023*" Then GoTo 10 ds.CopyFile Yol & "\" & dosya.Name, Yol & "\yedek\" 10 Next MsgBox "Kopyalama İşlemi Bitti" End Sub

Hocam çalıştı sizin kodlar. Teşekkür ederim. 2 buton yapacağım. Yolu masaüstü değilde ağdan bir yol seçmek istersem nasıl değiştirmeliyim? Yol: \\srv\Groups\ARGE\2-URETİM_MASTER_FORM\3_KLASOR DUZENLEME

Excele seçtiğim klasörde ki pdfleri çekiyor ve köprülüyor. Bu köprüleme bittikten sonra excelin içindeki pdf i başka klasöre kopyalamak istiyorum. O butonda çalışıyor ama klasörü bir kez seçeyim iki işlemi aynı buton yapsın istiyorum.

..."Private Sub Liste(yol As String)" prosedürüne eklersiniz sadece pdf dosyalarını alır For Each Dosya In fs.getfolder(yol).Files If Right(Dosya.Name, 3) = "pdf" Then fs.CopyFile Dosya, yol1 & Environ("userprofile") & "\Desktop\masaüstü\macrolar\hedef_pdf\" End If Next

Sanırım, dosyanızın kaydedilmemesi problemine sebep olan kod satırı şu şekildedir: Set vaFiles = Fso.GetFolder(yol) Bu satırda, Fso.GetFolder methodunun sonucu vaFiles değişkenine atanıyor. Bu method bir klasörü döndürür, ancak burada bir dosya açılmış ve açılan dosyanın özelliklerine erişmek...

...= _ "C:\Users\ErdalOZDEMIR\Desktop\DENEME\RAPORLAR (ASIL)" Hedef = _ "C:\Users\ErdalOZDEMIR\Desktop\DENEME\RAPORLAR (DÜZENLENEN)" Fso.CopyFile Kaynak & "\*.xlsx*", Hedef '------------------------------------------------- Dim yol As String yol =...

...1) & "*" & Rng.Value & "*") If My_File <> "" Then VBA.CreateObject("Scripting.FileSystemObject").CopyFile Rng.Offset(, 1) & My_File, Rng.Offset(, 2) & My_File End If End If Next MsgBox "İşleminiz tamamlanmıştır.", vbInformation End Sub

...istiyor musun?", vbInformation + vbYesNo, "DURUM") = vbYes Then yol = "C:\YEDEKLER\" & Replace(Now, ":", "_") & "-" & ThisWorkbook.Name ds.CopyFile ThisWorkbook.FullName, yol End If Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True MsgBox " Veriler Koruma...