Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
can someone simplify this file listing for me
this puts all the file names located in the specified folder starting in A1
Option Explicit Sub test() Dim lastrow As Long Dim MyFiles() As String Dim NumberOfFiles As Long Dim FilesInPath As String Dim FileDir As Variant FileDir = "e:\plu" lastrow = Worksheets("sheet1").Cells(Rows.Count, "A").End(xlUp).Row FilesInPath = Dir(FileDir & "\*.fxd") NumberOfFiles = 0 If FilesInPath = "" Then MsgBox "No files found" Exit Sub End If Do While FilesInPath < "" Worksheets("Sheet1").Range("A" & lastrow).Value = FilesInPath NumberOfFiles = NumberOfFiles + 1 lastrow = lastrow + 1 ReDim Preserve MyFiles(1 To NumberOfFiles) MyFiles(NumberOfFiles) = FilesInPath FilesInPath = Dir() Loop End Sub -- Gary |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
can someone simplify this file listing for me
Option Explicit
Sub GetFiles() Dim FileDir As String Dim fn As String Dim index As Long FileDir = "e:\plu" fn = Dir(FileDir & "\*.fxd") Do Until fn = "" index = index + 1 Worksheets("Sheet1").Cells(index, 1) = fn fn = Dir() Loop MsgBox index & " files found" End Sub "Gary Keramidas" wrote: this puts all the file names located in the specified folder starting in A1 Option Explicit Sub test() Dim lastrow As Long Dim MyFiles() As String Dim NumberOfFiles As Long Dim FilesInPath As String Dim FileDir As Variant FileDir = "e:\plu" lastrow = Worksheets("sheet1").Cells(Rows.Count, "A").End(xlUp).Row FilesInPath = Dir(FileDir & "\*.fxd") NumberOfFiles = 0 If FilesInPath = "" Then MsgBox "No files found" Exit Sub End If Do While FilesInPath < "" Worksheets("Sheet1").Range("A" & lastrow).Value = FilesInPath NumberOfFiles = NumberOfFiles + 1 lastrow = lastrow + 1 ReDim Preserve MyFiles(1 To NumberOfFiles) MyFiles(NumberOfFiles) = FilesInPath FilesInPath = Dir() Loop End Sub -- Gary |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
can someone simplify this file listing for me
thanks patrick, i appreciate it.
-- Gary "Patrick Molloy" wrote in message ... Option Explicit Sub GetFiles() Dim FileDir As String Dim fn As String Dim index As Long FileDir = "e:\plu" fn = Dir(FileDir & "\*.fxd") Do Until fn = "" index = index + 1 Worksheets("Sheet1").Cells(index, 1) = fn fn = Dir() Loop MsgBox index & " files found" End Sub "Gary Keramidas" wrote: this puts all the file names located in the specified folder starting in A1 Option Explicit Sub test() Dim lastrow As Long Dim MyFiles() As String Dim NumberOfFiles As Long Dim FilesInPath As String Dim FileDir As Variant FileDir = "e:\plu" lastrow = Worksheets("sheet1").Cells(Rows.Count, "A").End(xlUp).Row FilesInPath = Dir(FileDir & "\*.fxd") NumberOfFiles = 0 If FilesInPath = "" Then MsgBox "No files found" Exit Sub End If Do While FilesInPath < "" Worksheets("Sheet1").Range("A" & lastrow).Value = FilesInPath NumberOfFiles = NumberOfFiles + 1 lastrow = lastrow + 1 ReDim Preserve MyFiles(1 To NumberOfFiles) MyFiles(NumberOfFiles) = FilesInPath FilesInPath = Dir() Loop End Sub -- Gary |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
File path listing and analysis | Excel Discussion (Misc queries) | |||
File listing in excel | Excel Programming | |||
Want file title listing as in Excel 5.0 File>Find | Excel Discussion (Misc queries) | |||
Unix Directory/File Listing | Excel Programming | |||
Listing all external links within a file | Excel Programming |