Hai Lukman,
Proses membuat daftar file dalam suatu folder tertentu ya....
Untuk nama-nama file yang menggunakan unicode charset, lebih baik
menggunakan filesystemobject.
dim fso as object, f as object, lR as long
lr=1 'header penulisan di baris 1 Excel
set fso=createobject("Scripting.FileSystemObject")
for each f in fso.getfolder("D:\folderku\subfolderku").files
lr=lr+1 'baris Excel lokasi penulisan
sheets("nama sheet lokasi penulisan").cells( lr , 1 ).value =
f.path 'file fullname
sheets("nama sheet lokasi penulisan").cells( lr , 2 ).value = f.name
'filename
sheets("nama sheet lokasi penulisan").cells( lr , 3 ).value = left(
f.path , len(f.path) - len( f.name) ) 'folder i.e.
D:\folderku\subfolder
sheets("nama sheet lokasi penulisan").cells( lr , 4 ).value =
f.extension 'ekstensi file (tanpa diawali karakter titik)
next f
Wassalam,
Kid
2016-02-18 12:01 GMT+07:00 lkm jktind [email protected] [belajar-excel] <
[email protected]>:
>
>
> Mohon bantuannya.
>
> Seharusnya : 2002年的第一场雪 - 刀郎.mp4
> Hasil di excel : 2002?????? - ??.mp4
>
> Kalau di file text : encodingnya yg harus di rubah.
>
>
>
> Salam
>
> Lukman
>
>
>
