Pak Kid.
error disini .
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
diatas aslinya.
kalau di ganti menjadi :
For Each f In fso.getfolder("D:\data\dataku").Files
errownya pindah / menjadi disisni :
Sheets("nama sheet lokasi penulisan").Cells(lR, 1).Value =
f.Path 'file fullname
contoh filenya terlampir di email sebenlumnya (termasuk data untuk
contohnya
salam
Lukman
2016-02-19 14:22 GMT+07:00 'Mr. Kid' [email protected] [belajar-excel] <
[email protected]>:
>
>
> Fungsi Dir akan mengubah string ke utf-8 (english text).
> Kalau filesystemobject menyediakan data apa adanya.
>
>
>
> 2016-02-19 12:19 GMT+07:00 lkm jktind [email protected] [belajar-excel]
> <[email protected]>:
>
>>
>>
>> Pak Kid
>>
>> Benar pak .
>> Proses membuat daftar file dalam suatu folder tertentu ya...
>> dan bila perlu bisa menggantikan nama file
>>
>> seandainya : Macro excel itu bisa di setting : Unicode (masalahnya
>> mungkin disini)
>>
>> Program bapak sudah saya save di module : Mr_kid
>>
>> terlampir : file excel ---> di folder dataku
>> sedangkan : file datanya ------> ada di folder dataku\data.
>>
>> Selatamat siang
>>
>> Salam
>>
>>
>>
>> Lukman
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>> 2016-02-18 22:06 GMT+07:00 'Mr. Kid' [email protected] [belajar-excel] <
>> [email protected]>:
>>
>>>
>>>
>>> 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
>>>>
>>>>
>>>
>>
>
>
