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

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

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