Re: ]] XL-mania [[ List folder d/l ke Excel

dear pak gultom,

 

jika DAFTAR File diinginkan bukan hanya berisi NAMA FILE saja

tetapi juga File size,  Last-modified-Date , File type dsb..

kita hanya perlu menambah sedikit statements di dalam loop For - Next

spt ini...

 

   For Each MyFile In FOL
     r = r + 1
     With Range("B6")
        .Cells(r, 1) = r
        .Cells(r, 2) = MyFile.Name
        .Cells(r, 3) = MyFile.Size / 1024

        .Cells(r, 4) = MyFile.DateLastModified
        .Cells(r, 5) = MyFile.Type
     End With
   Next

 

note:

lampiran *.zi_  agar direname dulu menjadi *.zip

$emoga bermanfaat....

 

 

----- Original Message -----

From: siti Vi

To: XL-mania@yahoogroups.com

Sent: Wednesday, December 09, 2009 3:53 PM

Subject: Re: ]] XL-mania [[ List folder d/l ke Excel

'-----------------

Sub ListFilesNameOfSpecifiedFolder()
   '-------------------------------------------------------------
   ' siti Vi / mendaftar NamaFiles dari sebuah folder tertentu,
   '           ditulis di ActiveSheet's cells
   '-------------------------------------------------------------
   Dim fBrowser  As BrowseInfo
   Dim PathDirNm As String
   Dim szTitle   As String
   Dim lpIDList  As Long
   Dim FSO       As Object
   Dim FOL       As Object
   Dim MyFile    As Object
   Dim r         As Integer
  
   '==== BAGIAN I: Urusan mencari Folder ================
   '---- (user pilih folder melalui BrowseInfo)----------
   szTitle = "©tv: Pilih salah satu Folder..."
   With fBrowser
      .hWndOwner = Application.Hwnd
      .lpszTitle = lstrcat(szTitle, "")
      .ulFlags = BI_RetuOnlyFSDir + BI_NoGoBelowDomain
   End With
   lpIDList = SHBrowseForFolder(fBrowser)
   If (lpIDList) Then
      PathDirNm = Space(Max_Path)
      SHGetPathFromIDList lpIDList, PathDirNm
      PathDirNm = Left(PathDirNm, InStr(PathDirNm, vbNullChar) - 1)
      Range("D2") = PathDirNm ' hanya untuk info di sheet
   End If

 

   '==== BAGIAN II: ==================================

   '---- Urusan mendaftar fileName ke sheet --------------
   On Error GoTo Akhir
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Set FOL = FSO.GetFolder(PathDirNm).Files
   ' hapus area data
   Range("b6").CurrentRegion.Offset(1, 0).ClearContents
   ' - kunjungi semua Anggota Koleksi (file)
   For Each MyFile In FOL
     r = r + 1
     With Range("B6")
        .Cells(r, 1) = r
        ' - ambil Name-nya !! Tulis di cell
        .Cells(r, 2) = MyFile.Name
     End With
   Next
Akhir:
End Sub

'--------------------

 

----- Original Message -----

From: gultom

To: XL-mania@yahoogroups.com

Sent: Wednesday, December 09, 2009 2:14 PM

Subject: ]] XL-mania [[ List folder d/l ke Excel

Dear All,

Waktu dulu pernah ada yang membuat macro list file di folder

di down load ke excel pake macro

Kalo ada yang masih simpan tolong bagi dong,

karena saya punya hilang nih

Regards,

Gultom