Sorgu için arama sonuçları: Filecopy

merhabalar, Aşağıdaki kod ile dosyayı kopyalama yapıyorum. Peki dosyanın kopyasını nasıl salt okunur olarak kaydedebilirim?? Yardımcı olurmusunuz?? dosyayolu=textbox1.text dosyaadi=textbox2.text FileCopy dosyayolu, "D:\ARŞİV\KİTAP\" & dosyaadi

Merhabalar, Başlıkta çok doğru ifade edememiş olabilirim kusuruma bakmayın. Şöyle birşey yapmak istiyorum. c:\eski1\ klasöründeki 10098.jpg,10099.jpg, 10100.jpg adlı dosyaları c:\yeni1\ içerisine adlarını a0001.jpg, a0002.jpg, a0003.jpg gibi bir seri oluşturacak şekilde yeniden isimlendirerek...

arkadaşlar şimdi dizinden dizine kolay şöyleki ; Private Sub Command1_Click() FileCopy "c:\kus.txt", "D:\kus.txt" Kill "c:\kus.txt" End Sub fakat ben bunu masaüstüne aktarmak istiyorum ama şöyle bir sorun var ; adres şöyle olacak C:\Documents and Settings\mehmet\Desktop\kus.txt işte sorun şu...

...harici disk olan G: diskini adres gösterince çalışmıyor. Run-time error 70 permission denied diye hata veriyor ve debug: "VBA.FileSystem.FileCopy kopyaal, kopyayolla" kodu üzerinde duruyor iki disk üzerinde ki dosyalardan masa üstü kısayol oluştur dan aldığım kısayol adreslerii...

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