Path & File Name
I have the code below that gives me the file names within a certain path. I
now want a macro that will give me the subfolders and files within a drive (for example, instead of Q:\PDF\mis90 it will say M:\Amyand will list the folder names, and the files within those folders). Is this even possible? Thanks in advance for any assistance you may provide. Option Explicit Public Sub Tester() Dim WB As Workbook Dim SH As Worksheet Dim destRng As Range Dim oFSO As Object Dim oFolder As Object Dim ofile As Object Dim sFolderName As String Dim i As Long Const sPath As String = _ "Q:\PDF\mis_90" Set WB = Workbooks("MyBook.xls") Set SH = WB.Sheets("Sheet1") Set destRng = SH.Range("B1") Set oFSO = CreateObject("Scripting.FileSystemObject") sFolderName = sPath & Application.PathSeparator On Error Resume Next Set oFolder = oFSO.GetFolder(sFolderName) On Error GoTo XIT If Not oFolder Is Nothing Then For Each ofile In oFolder.Files destRng.Offset(i).Value = ofile.Name i = i + 1 Next ofile End If XIT: Set ofile = Nothing Set oFolder = Nothing Set oFSO = Nothing End Sub |
All times are GMT +1. The time now is 08:13 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com