Sorgu için arama sonuçları: movefile

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

Merhabalar, Movefile komutunu kullandığım tüm örneklerde bu hatayı alıyorum. En basit şekliyle; Boş bi pdf dosyasını bulunduğu klasörden başka bir klasöre taşımak istiyorum.

...Klasör_Yolu_1 As String, Klasör_Yolu_2 As String dosya = "mm20170317.zip" Klasör_Yolu_1 = "C:\Users\CTS02\Downloads\" Klasör_Yolu_2 = "D:\KAR\ZIP\" Set Dosya_Sistemi = CreateObject("Scripting.FileSystemObject") Taşı = Dosya_Sistemi.MoveFile(dosya, Klasör_Yolu_2)...

...If UCase(Uzantı) = "PDF" Or UCase(Uzantı) = "JPG" Or UCase(Uzantı) = "JPEG" Then Say = Say + 1 Taşı = Dosya_Sistemi.MoveFile(dosya, Klasör_Yolu_2) If Say = 500 Then GoTo son End If Next son: MsgBox "İşleminiz tamamlanmıştır."...

...".")(1) If UCase(Uzantı) = "JPG" Or UCase(Uzantı) = "JPEG" Then Say = Say + 1 Taşı = Dosya_Sistemi.MoveFile(Dosya, Klasör_Yolu_2) If Say = 500 Then GoTo Son End If Next Son: MsgBox "İşleminiz tamamlanmıştır.", vbInformation End Sub

...Dir("C:\excel web\Yedek\" & dosya) If Kontrol <> "" Then Kill ("C:\excel web\Yedek\" & dosya) End If fs.movefile "C:\excel web\Temp\*.Zip", "C:\excel web\Yedek" MsgBox " [ " & Yol1 & " ] " & strDate1 & " Tarihinde Winzip İle Aşağıdaki Gibi...

...dosyalari C:\etc altina tasimak icin kullandigim Sub Test3() Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") fso.Movefile "C:\Tmp\*.*", "C:\etc\" End Sub Object variable or With block variable not set (Error 91) Hata mesajini veriyor. Sebebini ben...