Scribd
Upload
11 views2 pages

VBA Script for Folder File Listing

This document contains VBA code to perform the following functions: 1. Allow the user to select a folder using a file dialog box. The selected folder path is stored in a cell. 2. List all files and subfolders in a source folder and its subfolders. File details like name, path, type and dates are written to a spreadsheet. 3. Call the file listing subroutine, passing the folder path stored in the cell and flag to include subfolders. Headers are added and columns autosized.

Uploaded by

pank
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
11 views2 pages

VBA Script for Folder File Listing

This document contains VBA code to perform the following functions: 1. Allow the user to select a folder using a file dialog box. The selected folder path is stored in a cell. 2. List all files and subfolders in a source folder and its subfolders. File details like name, path, type and dates are written to a spreadsheet. 3. Call the file listing subroutine, passing the folder path stored in the cell and flag to include subfolders. Headers are added and columns autosized.

Uploaded by

pank
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd

Option Explicit

Sub PILIHFOLDER()
Dim SELECTEDFOLDER As String
With [Link](msoFileDialogFolderPicker)
.Title = "SELECT FOLDER"
.ButtonName = "CONFIRM"
If .Show = 1 Then
SELECTEDFOLDER = .SelectedItems(1)
[Link]("N4").Value = SELECTEDFOLDER & "/"
Else
End If
End With
End Sub

Sub DaftarFileFolder(ByVal SourceFolderName As String, ByVal INCLUDESUBFOLDERS As


Boolean)
Dim LARRAY() As String, A As Long
Dim FSO As Object
Dim FOLDERUTAMA As Object
Dim SUBFOLDER As Object
Dim FILEITEM As Object
Dim BARIS As Long

Set FSO = CreateObject("[Link]")


Set FOLDERUTAMA = [Link](SourceFolderName)
BARIS = Range("A10000").End(xlUp).Row + 1
For Each FILEITEM In [Link]
Cells(BARIS, 1).Formula = [Link]
Cells(BARIS, 2).Formula = [Link]
Cells(BARIS, 3).Formula = [Link]
Cells(BARIS, 4).Formula = [Link]
Cells(BARIS, 5).Formula = [Link]
Cells(BARIS, 6).Formula = [Link]
BARIS = BARIS + 1
Next FILEITEM

If INCLUDESUBFOLDERS Then
For Each SUBFOLDERS In [Link]
DaftarFileFolder [Link], True
Next SUBFOLDER
End If
Set FILEITEM = Nothing
Set FOLDERUTAMA = Nothing
Set FSO = Nothing
[Link] = True
End Sub

Sub AMBILFILEFOLDER()
Dim FOLDERPATH As String
[Link] = False
FOLDERPATH = [Link]("N4").Value
[Link]
[Link]("A8:F100000").Select
[Link]
Range("A7").Formula = "FILE NAME"
Range("B7").Formula = "PATH"
Range("C7").Formula = "TYPE"
Range("D7").Formula = "FILE SIZE (BYTES)"
Range("E7").Formula = "DATE CRATE"
Range("F7").Formula = "DATE LAST MODIFIED"

Range("A7:F7").[Link] = True
DaftarFileFolder FOLDERPATH, True
Columns("A:F").Select
[Link]
[Link]("A1").Select
End Sub

You might also like