Arkadaşlar Merhaba,
Aşağıdaki macro A1 hücresine klasörden dosya isimlerini alıyor.
Ben dosyanın klasöre kaydedilme (date modified) tarinide almak istiyorum B1 hücresine.
Bu bilgiyi bu macroya nasıl ekleyebilirim.
Saygılar.
Sub Dosya_İsimleri()
Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("C:\Users\SS\Desktop\Dosya")
Set dc = f.Files
For Each Dosya In dc
i = i + 1
Cells(i + 1, 1) = Dosya.Name
Next
End Sub
Aşağıdaki macro A1 hücresine klasörden dosya isimlerini alıyor.
Ben dosyanın klasöre kaydedilme (date modified) tarinide almak istiyorum B1 hücresine.
Bu bilgiyi bu macroya nasıl ekleyebilirim.
Saygılar.
Sub Dosya_İsimleri()
Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("C:\Users\SS\Desktop\Dosya")
Set dc = f.Files
For Each Dosya In dc
i = i + 1
Cells(i + 1, 1) = Dosya.Name
Next
End Sub