I have a lot of DAT files and named with product
I want to do a master list for these DAT files.
Is it possible to use marco to complete

Hi

What to you mean by masterlist - Is it a list of dat files. You can use the Dir function to get it

http://vbadud.blogspot.com/2007/05/v...rectories.html

Cheers
Shasur

http://www.dotnetdud.blogspot.com

Thanks Shasur,

youe are right I want to get a list of all file name.

Hi Shasur,

I just one change in your marco but i am fail to get the file name list that I want. Would you please give more help to me?
sSubDir = GetSubDir("d:\trash\")=> sSubDir = GetSubDir("d:\AR\")
All my DAT files are inside("d:\AR\")

Thanks a lot

Here is the modified version

Sub Get_All_SubDirectories()

Dim arSubDir() As String
Dim sSubDir As String

sSubDir = GetSubDir("d:\AR\", "*.dat")

' -----------------------------------------------------------
' Coded by Shasur for http://vbadud.blogspot.com
' -----------------------------------------------------------

If LenB(sSubDir) <> 0 Then
arSubDir = Split(sSubDir, ";")
For i1 = 0 To UBound(arSubDir)
    ' Here you will get the list of Dat files
    Debug.Print arSubDir(i1)
Next i1
End If

End Sub


http://www.dotnetdud.blogspot.com