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 >> >> > >
Dataku.rar
Description: application/rar
