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 >>> >>> >> > >
