DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Kendisine de teşekkür ederim.Sub addegistir()
For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder("C:\Downloads\").Files
c = c + 1
Name "C:\Downloads\" & dosya.Name As "C:\Downloads\" & c & ".doc"
Next
End Sub