Sorgu için arama sonuçları: copyfile

...= 2 To Cells(Rows.Count, 1).End(xlUp).Row klasor = anaKlasor & Cells(i, 2) & "\" dosya = .GetFileName(Cells(i, 1)) .CopyFile Cells(i, 1), klasor & dosya 'kopyalamak '.MoveFile .Cells(i, 1), klasor & dosya 'taşımak Next i End With...

...= "C:\Users\onurt\Desktop\yyy\" On Error Resume Next For i = 1 To [a65536].End(3).Row Dosya = veriKlasor & Cells(i, 1).Value If CreateObject("Scripting.FileSystemObject").FileExists(Dosya) = True Then DosyaSistemi.CopyFile Dosya, hedefKlasor & Cells(i, 1).Value & "-1.JPG" End If Next i End Sub

...vbInformation + vbYesNo, "DURUM") = vbYes Then dosyaadi = ThisWorkbook.FullName uzanti = "." & ds.GetExtensionName(dosyaadi) isim = Sheets("ANASAYFA").Cells(10, "b").Value yol = yer & "/" & Format(Now, " dd.mm.yyyy hh_nn_ss") & "-" & isim & uzanti ds.CopyFile dosyaadi, yol End If End Sub

...istiyor musunuz?", vbInformation + vbYesNo, "DURUM") = vbYes Then yol = "D:\YEDEKLER\" & Replace(Now, ":", "_") & "-" & ThisWorkbook.Name ds.CopyFile ThisWorkbook.FullName, yol End If End Sub Yukarıdaki gibi bir kod var (excel.web.tr den buldum). Güzel çalışıyor emeği geçenler sağolsun. Ama...

...1,255)" isim = Sheets("SİSTEM").Range("AB1").Value yol = yer & "/" & Format(Now, " dd.mm.yyyy hh_nn_ss") & " " & isim & uzanti ds.CopyFile dosyaadi, yol Range("AB1").ClearContents MsgBox ("Dosyanın yedeği alındı."), vbInformation, "DURUM" End Sub .

...= ThisWorkbook.FullName uzanti = "." & ds.GetExtensionName(DosyaAdi) yol = yer & "/" & Format(Now, " dd.mm.yyyy hh_nn_ss") & uzanti ds.CopyFile DosyaAdi, yol End Sub Dosyanın adını alan kod'da aşağıda. Sub DosyanınAdı() DosyaAdi = ThisWorkbook.Name DosyaUzanti = LCase(Mid(DosyaAdi...

...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 .

...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 End Sub Teşekkür...

...Can") = vbYes Then Dim Yedek As String Trh = Replace(Now, ":", "_") Kyt = "\\192.168.1.18\betul\KENTSELTAKİPYEDEK\" ThisWorkbook.Save ds.CopyFile ThisWorkbook.FullName, Kyt & Trh & ".xls" ---(BU SATIR) MsgBox "Yedek alma işlemi tamamlanmıştır.", vbInformation, "Cafer Can" Else MsgBox "Yedek...

...ThisWorkbook.Path = "YEDEKLER" Then Exit Sub yol = "YEDEKLER\" & Replace(Now, ":", "_") & "-" & ThisWorkbook.Name ds.CopyFile ThisWorkbook.FullName, yol End Sub Bu makro ile dosyanın çalıştığı klasördeki YEDEKLER klasörüne, adına o anı da ekleyerek yedeklemesini...

...= False Then ds.CreateFolder "G:\Hikmet\Proje YEDEK\" End If If ThisWorkbook.Path = "G:\Hikmet\Proje YEDEK" Then Exit Sub If zaman1 = zaman2 Then tarih = Sheets("Anasayfa").Range("F7") yol = "G:\Hikmet\Proje YEDEK\" & tarih & "-" & ThisWorkbook.Name ds.CopyFile ThisWorkbook.FullName, yol End If

...StrFolder = ds.GetFolder(ThisWorkbook.Path).ParentFolder.Path Dim Yedek As String Trh = Replace(Now, ":", "_") '& "_Personel Takip" Kyt = StrFolder & "\YEDEKLER\" 'MsgBox Kyt ThisWorkbook.Save ds.CopyFile ThisWorkbook.FullName, Kyt & Trh & Environ("username") & ".xlsm" End Sub

...If Dir("G:\Programlar\PROGRAMLAR VE KURULUMLARI\SAYAÇ & BACA GAZI PROGRAMLARI\alp teknik)\e680\Kilitli\") = "" Then MkDir "" DosyaSistemi.CopyFile Aktif_Dosya_Adı, Kayıt_Yeri MsgBox "Dosyanız aşağıdaki isimle yedeklenmiştir." & Chr(10) & Yedek_Dosya_Adı, vbInformation, "CELL_O" cevap =...

...Range("a1"), xlDescending, Range("b1"), , xlDescending hedef = yeni.Range("c2").Value & "\PLT1" MsgBox hedef Set algel = evn.getfolder("E:\yedek" & "\" & hedef) evn.CopyFile algel & "\*.*", "c:\01" End Sub ************************* Bu Konu Çözülmüştür. *************************

Merhaba arkadaşlar; If InStr(1, dosya, fs.GetExtensionName("*.dwg")) = 0 Then fs.CopyFile dosya, yol1 & "\" End If bu kodda *.dwg uzantılı dosyaları, dosya değişkeninden çıkarıyoruz ve geriye diğer dosyalar kalıyor... yapmak istediğim bunun tam tersi : *.dwg uzantılı dosyalar dosya...

...Dosya = veriKlasor & Cells(i, 1).Value If CreateObject("Scripting.FileSystemObject").FileExists(Dosya) = True Then DosyaSistemi.CopyFile Dosya, hedefKlasor & Cells(i, 1).Value End If Next i End Sub bu kod ile sadece klasör açıyor nerede hata yapıyorum anlamadım yardımcı olurmusunuz? ben...

...& BACA GAZI PROGRAMLARI\alp teknik)\e680\Kilitli\Yeni Klasör\111\Kilitli\yedeklemeler\") = "" Then MkDir "" DosyaSistemi.CopyFile Aktif_Dosya_Adı, Kayıt_Yeri MsgBox "Dosyanız aşağıdaki isimle yedeklenmiştir." & Chr(10) & Yedek_Dosya_Adı, vbInformation, "CELL_O" cevap = MsgBox("...

...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...

...InStr(1, StrReverse(Dosya), ".", vbTextCompare)) Dim Yedek As String Trh = Format(Now, "dd.mm.yyyy hh_nn_ss") ThisWorkbook.Save ds.CopyFile ThisWorkbook.FullName, Kyt & "\" & Trh & uzanti End Sub Merhaba, Yukarıdaki kodla yedek alıyorum. Yedek alınan dosyayı, aynı zamanda şifre korumalı...

...= veriKlasor & aktif.Cells(i, 1).Value & ".jpg" If CreateObject("Scripting.FileSystemObject").FileExists(Dosya) = True Then DosyaSistemi.CopyFile Dosya, hedefKlasor & aktif.Cells(i, 1).Value & ".jpg" if err then hata=1 with sheets("Rapor") .range("a65536").end(3)(2,1).value =...