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.
...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
...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...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.