Sorgu için arama sonuçları: filecopy

...As String kaynakDosya = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(i) hedefDosya = hedefKlasor & "\" & fso.GetFileName(kaynakDosya) FileCopy kaynakDosya, hedefDosya Next i MsgBox "Seçilen dosyalar başarıyla kopyalandı!", vbInformation End Sub

...Nothing Then Label19.Caption = ObjFolder.Items.Item.Path hedefYol = Label19.Caption & "\" & fso.GetFileName(dosya) FileCopy dosya, hedefYol MsgBox "Dosya başarıyla kopyalandı!", vbInformation Else MsgBox "Klasör seçilmedi.", vbExclamation End If...

...Then dosya = .SelectedItems(1) End If End With Set ObjFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasör seçin !", &H100) Label19.Caption = ObjFolder.Items.Item.Path FileCopy dosya, Label19.Caption '-------------------------------------- End Sub

...- " & sahip & ".xlsx" ' Aynı dosya varsa yeniden kopyalama If Dir(hedefDosya) = "" Then FileCopy kaynakDosya, hedefDosya End If End If Next i MsgBox "Tüm klasörler ve dosyalar başarıyla...

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