Files and files sizes in directory

[paularthur90]

Hi,

I have been searching the internet high and low and still cannot fine anything directly related to what I need.

I need a macro to output a list of files that are contained in a directory. I also need to output next to that list either the size of the file in KB or the length of the WAV files that are in it. I ask for either one or the two as I can roughly estimate that 2kb in 1 second of recording.

Could someone please help me?

Thanks,
Paul

[xladept]

Here's some code I had on hand - see if it suits your purpose (it may need some tweaking):

Sub Runnit()                    'Run the Directory
Dim S As String, P As String, U As String, i As Integer: i = 1

P = ActiveWorkbook.Path         'or the directory to run

P = P & "\": U = Dir(P): S = P & U: i = i + 1

ThisWorkbook.Sheets("Sheet1").Activate  'or wherever you want the list

NextBook:
If InStr(1, S, ".xls") Then
Cells(i, 1) = U: Cells(i, 2) = FileLen(P & U)
Else:
i = i - 1: GoTo GetNextBook: End If

GetNextBook: i = i + 1
'If i > 50 Then Exit Sub             'Failsafe
On Error GoTo EndSub
U = Dir()
GoTo NextBook

EndSub: End Sub

[mc84excel]

I think I have a VBS for this somewhere. If I find it, I'll upload it.

Another option - but more involved - see my thread here for a project for returning lists of files/folders http://www.excelforum.com/excel-prog...stage-3-a.html You could cannabilise code from this and use FileLen on each file