Sorgu için arama sonuçları: copyfile

...aranan1 = Kaynak3 & "\" & Dosya.Name aranan2 = Dosya uzanti = UCase(fL.GetExtensionName(aranan1)) If uzanti = "JPG" Then fL.CopyFile aranan2, aranan1 j = WorksheetFunction.CountA(Worksheets(ActiveSheet.Name).Range("A1:A" & Rows.Count)) + 1 Cells(j, 1).Value = aranan2 Cells(j, 2).Value =...

...Len(deg1))) aranan1 = Kaynak2 & yer3 aranan2 = deg1 uzanti = UCase(fL.GetExtensionName(aranan1)) MsgBox uzanti If uzanti = "JPG" Then fL.CopyFile aranan2, aranan1 j = WorksheetFunction.CountA(Worksheets(ActiveSheet.Name).Range("A1:A" & Rows.Count)) + 1 Cells(j, 1).Value = aranan2 End If Next...

...copy if one or more found sTest = Dir(oFolder.Path & Application.PathSeparator & "*." & arg_sExtension) If Len(sTest) > 0 Then oFSO.copyfile oFolder.Path & Application.PathSeparator & "*." & arg_sExtension, Destination:="D:\program_deneme\destination\" 'Recursively search...

...bir klasöre değil. Onu daha sonra seçeciğim bir klasöre buton yardımı ile yapıştıracağım. Yani windowsta yaptığımız gibi önce kopyalayıp veya kesip hafızaya alacam. Sonra başka bir yere yapıştıcam. objFSO.CopyFile MyFile, path & Foldername1 & "\" & Foldername2 & "\" bu şekilde olmayacak yani

.MoveFile'ın başındaki tırnak işaretini silip .Copyfile'ın başına ekledik mi?

...As String oldPath = AYARLAR.TextBox2x.Value newPath = AYARLAR.TextBox21x.Value Set fs = CreateObject("Scripting.FileSystemObject") fs.CopyFile oldPath, newPath & "\" & Environ$("computername") & " " & Format(Now(), "dd.mm.yyyy Hh.Nn") & ".accdb" Set fs = Nothing XED_FORM.Label1 = "AutoBackUp...

...If dosyavarmi(kaynakisim) Then hedefisim = yeniklasor & "\" & Range("A" & i).Value On Error GoTo son FSO.CopyFile "" & kaynakisim & "", "" & hedefisim & "" Range("F" & i).Value = "" GoTo atla Else Range("F" &...

...= False Then MkDir Kyt End If ThisWorkbook.Save Trh = Cells(1, 1).Value & Format(Now, " dd_mm_yyyy") & " Saat" & Format(Now, "hh_nn_ss") ds.CopyFile ThisWorkbook.FullName, Kyt & Trh & ".xlsm" MsgBox "Yedek alma işlemi tamamlanmıştır.", vbInformation, "DİKKAT" Else MsgBox "Yedek alma işlemi...

...+ vbYesNo, "DİKKAT") = vbYes Then Dim Yedek As String Trh = Replace(Now, ":", "_") Kyt = "C:\YEDEK DOSYALAR\" ThisWorkbook.Save ds.CopyFile ThisWorkbook.FullName, Kyt & Trh & ".xlsm" MsgBox "Yedek alma işlemi tamamlanmıştır.", vbInformation, "DİKKAT" Else MsgBox "Yedek alma işlemi iptal...

bu notuda makroya ilave ettim, genelde copy kullanıyorum. Teşekkürler

Rica ederim, Bir de koda ilave olarak dosyaları kopyalamak yerine taşımak isterseniz ds.CopyFile yazan yeri ds.MoveFile ile değiştirebilirsiniz. İyi çalışmalar...

...& "{" & kls Next End If x = x + 1 deg = Split(klslst, "{") yol = deg(x) dosya = Dir$(yol & "\*.*") Do While dosya <> "" Say = Say + 1 ds.CopyFile yol & "\" & dosya, anayol & "\topla\" & dosya dosya = Dir$() Loop If x = 1 And ds.GetFolder(yol).subfolders.Count > 0 Then GoTo Tekrar Loop...

...almak istiyor musunuz?", vbInformation + vbYesNo, "DURUM") = vbNo Then MsgBox "İptal ettiniz.", vbInformation Exit Sub End If dosyaadi = ThisWorkbook.FullName uzanti = "." & ds.GetExtensionName(dosyaadi) yol = yer & Format(Now, " dd.mm.yyyy hh_nn_ss") & uzanti ds.CopyFile dosyaadi, yol End Sub

...istiyor musunuz?", vbInformation + vbYesNo, "DURUM") = vbNo Then MsgBox "İptal ettiniz.", vbInformation Exit Sub End If dosyaadi = ThisWorkbook.FullName uzanti = "." & ds.GetExtensionName(dosyaadi) yol = yer & "/" & Format(Now, " dd.mm.yyyy hh_nn_ss") & uzanti ds.CopyFile dosyaadi, yol End Sub

...Then MsgBox " Bu isimde bir dosya var": Exit Sub Else ActiveWorkbook.Save If flk.FolderExists(klasor) = False Then MkDir klasor End If flk.CopyFile ThisWorkbook.FullName, Kayıt_Yeri MsgBox "DOSYANIZ AŞAĞIDAKİ İSİMLE KAYIT YAPILMIŞTIR." & Chr(10) & Chr(10) & Kayıt_Yeri, vbInformation, "U Y A R...

Run-Time error '5' Invalid procedure call or argument şeklinde bir uyarı veriyor, sonrasında Debug deyince FSO.CopyFile Range("B" & i).Text, DataFolder & Application.PathSeparator & tempFile bu alanda sarı olarak işaretliyor, not: 380 tane taşıyor ama dosya uzantılarını almıyor klasör...

380 tane veri kopyaladıktan sonra bu satıra hata veriyor, birde kopyalama olmasada kes yapsak olmazmı FSO.CopyFile Range("B" & i).Text, DataFolder & Application.PathSeparator & tempFile

...For i = 2 To NoB If Dir(Range("B" & i).Text) <> "" Then tempFile = FSO.GetBaseName(Range("B" & i).Text) FSO.CopyFile Range("B" & i).Text, DataFolder & Application.PathSeparator & tempFile End If Next Set FSO = Nothing End Sub .

...For i = 0 To Me.ListBox2.ListCount - 1 If fso.FolderExists(Me.TextBox1.Text & "\" & ListBox2.List(i)) Then fso.CopyFile ThisWorkbook.Path & "\PDF RAPORLAR\" & ListBox2.List(i) & ".pdf", _ Me.TextBox1.Text & "\" & ListBox2.List(i) & "\" & ListBox2.List(i)...

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