Ya disesuaikan dengan keadaan setempat to ya... Foldernya di set sesuai dengan folder milik Anda. Sheetnya juga.
2016-02-19 17:16 GMT+07:00 lkm jktind [email protected] [belajar-excel] < [email protected]>: > > > 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 >>>>> >>>>> >>>> >>> >> > >
