Hi
I've been tinkering about with VBA for a while now but have come up stuck.
I have a list of files in a folder, on a excel spreadsheet I keep a register that I update every wednesday.
I have an update buton on the register that works fine, however the problem is that the files appear in the register in no set order, and often I get duplicate files in the register.
I have attached the VBA code I'm using below. Ideally I would like some help to set the files to appear by date or a code that adds new files only?
Any help would be appreciated, thanks in advance
Public Sub List_Files_In_Directory()
Dim List_Files_In_Directory(10000, 1)
Dim One_File_List As String
Dim Number_Of_Files_In_Directory As Long
One_File_List = Dir$("V:\E-PSS\" + "*.*")
Do While One_File_List <> ""
List_Files_In_Directory(Number_Of_Files_In_Directory, 0) = One_File_List
One_File_List = Dir$
Number_Of_Files_In_Directory = Number_Of_Files_In_Directory + 1
Loop
Number_Of_Files_In_Directory = 0
While List_Files_In_Directory(Number_Of_Files_In_Directory, 0) <> tom
Range("A5").Offset(Number_Of_Files_In_Directory, 0).Value = List_Files_In_Directory(Number_Of_Files_In_Directory, 0)
Number_Of_Files_In_Directory = Number_Of_Files_In_Directory + 1
Wend
End Sub
Bookmarks