Sorgu için arama sonuçları: filecopy

...buldum.Fakat bir türlü birleştiremedim. :| Sub DataOku() Dim Data As String Open "C:Deneme\DENEME.txt" For Input As #1 Do While Not EOF(1) Line Input #1, Data MsgBox Data Loop Close #1 End Sub Sub TXTDosyaKopyalama() FileCopy "C:\Deneme\DENEME.txt", "C:\Dosyalarım\DENEME.txt" End Sub

...---------------- Sub KOPYALA() On Error Resume Next For X = 2 To [a65536].End(3).Row Cells(X, 1).Select Source = "C:\MILK-RUN\yeni2\" & Cells(X, 1) target = "C:\MILK-RUN\yeni2\" & Cells(X, 10) & "\" & Cells(X, 1) FileCopy Source, target Next X End Sub

...Right(" " & rst.Fields(ay), 2); " "; rst!GönderilecekEvrakınAdı rst.MoveNext Loop rst.Close: Set dbs = Nothing: Close #dn FileCopy apppath & "Miatlı_Evraklar.txt", glbBaşlangıçKlasörü & "Miatlı_Evraklar.txt" MsgBox rUcase(ay) & " AYINDA GÖNDERİLECEK MİATLI EVRAKLAR," &...

...If deg = False Then GoTo 10 Target = TextBox2.Text & "\" & s1.Cells(i + 4, 2) & ".tif" FileCopy Source, Target k = k + 1 yuzde = Round((k / DosyaSayısı) * 100, 0) s1.Cells(2, 9).Value = "%" & yuzde & " kopyalandı" GoTo 20 10 BDosyaSayısı = Application.CountA(s1.Columns(4)) s1.Cells(i + 2 +...

...listelemek istediğim zaman,bulamadığı ilk dosyayı listeye ekliyor yani düzgün çalışıyor, ikinci bulamadığı dosyada on error çalışmayıp filecopy satırında "file not found" hatasını veriyor. Yardımcı olursanız sevinirim. Private Sub CommandButton3_Click() Set s1 = Sheets("Resim") k = 0...

...Sub kopyala() kaynak = ThisWorkbook.Path & Application.PathSeparator & "Giris.xls" hedef = Application.DefaultFilePath & "\SABiT\Giris.xls" FileCopy kaynak, hedef End Sub Burada yapılmak istenen "Giris.xls" dosyasının Belgelerimdeki SABiT klasörüne kopyalanması. "FileCopy kaynak, hedef"...