Pak Kid Terima kasih
sudah bisa. tinggal renama -- yg mesti di permak. Salam Lukman 2016-02-19 17:27 GMT+07:00 'Mr. Kid' [email protected] [belajar-excel] < [email protected]>: > > > 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 >>>>>> >>>>>> >>>>> >>>> >>> >> > >
