Sorgu için arama sonuçları: filecopy

...= kaynakAdres & mevcutDosya tamHedefYol = hedefAdres & mevcutDosya ' Dosyayı taşı FileCopy tamKaynakYol, tamHedefYol Kill tamKaynakYol ' Orijinal dosyayı sil Else MsgBox "Dosya bulunamadı: " & kaynakAdres &...

Çok teşekkürler hocam. Emeğinize sağlık. Kopyasını almam gerektiğinden 2. yönteminizi kullanamıyorum. Dosyaları toplu kopyalamıyorum zaten. Aslında kurguladığım kodda kod ilk önce dinamik bir yeni klasör oluşturuyor sonra ülkeye göre dosyaları seçip o klasöre atıyor. 1. Yönteminizi daha önce de...

..."bnan Branda.pdf" Case "Türkiye" dosyaAdi = "copybanner Türkiye Branda.pdf" End Select FileCopy mainklasor & "\Banner\" & dosyaAdi, mainklasor & "\Banner\" Next Country End Sub Ana klasör yolunu belirtiniz ve örnek ülkleri diziye...

Hocam Country bir Variant bende. String değil. For döngüsü ile satıra göre sürekli değişiyor. Evet Country değişkeni türkçe karakter içeren bir ülkeye eşit olduğu zaman linkteki dosyayı kopyalamıyor. Yukarıdaki kodlamanızı test ettim. Klasör yolundan bağımsız hata veriyor. Aslında klasör...

...If Dir(destPath, vbDirectory) = "" Then MkDir destPath End If destPath = sourcePath On Error Resume Next FileCopy sourcePath, destPath If Err.Number <> 0 Then MsgBox "Dosya kopyalarken hata oluştu: " & Err.Description, vbCritical End If On Error...

...Dim hedefDosya As String dosyaAdi = "yedek1.xlsx" kaynakDosya = ActiveWorkbook.FullName hedefKlasor = Environ("USERPROFILE") & "\Desktop\" hedefDosya = hedefKlasor & dosyaAdi FileCopy kaynakDosya, hedefDosya MsgBox "Yedekleme tamamlandı!", vbInformation End Sub

Hocam Kaynak ve Hedef klasörlere kullanıcı adı yazmadan herhangi bir bilgisayarın masaüstünde çalışması için nasıl düzenleyebiliriz?

...DosyaUzunlugu = Len(DosyaAdi) ' Uzunluğu 6 karakter olan dosyaları kopyala If DosyaUzunlugu = 6 Then FileCopy KaynakKlasor & Dosya, HedefKlasor & Dosya End If ' Bir sonraki dosyaya geçin Dosya = Dir Loop MsgBox...

...hedefKlasor = hedefKlasor & "\" End If If Dir(kaynakKlasor & dosyaAdi) <> "" Then FileCopy kaynakKlasor & dosyaAdi, hedefKlasor & yeniDosyaAdi sonuc = "Kopyalandı" Else sonuc = "Bulunamadı"...

Merhaba, Forumda arama yapabilirsiniz. Arama Sonuçları

bu hatayı bende aldım. ilkinde almamıştım ad değişmiyordu. şu an bu hatayı veriyor. değiştirmşyor. butoanlarda pasifleşti. buton eklemede makroyu görmüyor. ama 6 yıl geçmiş mesaja bakan yok. Konuyu hortlatayım biraz :)

...Object pth = "C:\Users\pc\Downloads\" fName(0) = "Plate_Parts_Only.xsr" fName(1) = "sil.txt" fName(2) = "schema.ini" FileCopy pth & fName(0), pth & fName(1) strSql(0) = "[" & fName(1) & "]" & vbCrLf & _ "ColNameHeader = True" & vbCrLf & _...

...& Replace(FSO.GetFileName(strFile), FSO.GetBaseName(strFile.Name), strFolder.Name & "_" & FSO.GetBaseName(strFile.Name)) FileCopy FSO.GetAbsolutePathName(strFile), myNewFolder End If Next If IncludeSubFolders = True Then For Each strFolder In...

..."G").End(3).Row If Dir(File_Path & Cells(X, "G") & File_Extention) <> "" Then File_Count = File_Count + 1 FileCopy File_Path & Cells(X, "G") & File_Extention, Archive_Path & "\" & Cells(X, "G") & File_Extention End If Next MsgBox "Arama işlemi...

Haluk Bey, çok teşekkür ederim.Allah razı olsun..

FileCopy dosya, yol & "\" & "mulga" & "\" & rapor.Value veya; FileCopy dosya, yol & "\mulga\" & rapor.Value .

...& "\" & ds & "\" & dosyaadı kayıtyeri = yol & "\" & mulga '& "\" & dosya 'bu şekilde çalışıor FileCopy dosya, "D:\TAPİŞ\mulga\" & rapor.Value Ancak kaydedilecek yeri aşağıdaki şekilde yapınca çalışmıyor. Kaydedilecek yeri tam...

Teşekkürler Korhan bey istenilen sonucu verdi

...= TextBox1 My_File = Dir(My_Path & "*" & My_File_Name & "*.pdf") If My_File <> "" Then FileCopy My_Path & My_File, CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & My_File MsgBox My_File & " isimli dosya kopyalandı..."...

İnceleyiniz. https://www.excel.web.tr/search/265292/?q=filecopy&o=date