find all text files in a directory

[strataguru]

Hi,

I'm trying to find code that allows me:

1) Ask the user to select a directory - not file - a directory tha
has files that need to be imported
2) Open, one at a time, text files in that directory

Any ideas?

Thanks

 

[Bob Phillips]

Try this

Sub ProcessFiles()
Dim i As Long
Dim sFolder As String
Dim fldr As Object
Dim Folder As Object
Dim file As Object
Dim Files As Object

Set FSO = CreateObject("Scripting.FileSystemObject")

'sFolder = "C:\myTest"
sFolder = InputBox("Supply folder")
if sFolder = "" then Exit Sub
If sFolder <> "" Then
Set Folder = FSO.GetFolder(sFolder)

Set Files = Folder.Files
For Each file In Files
If file.Type = "Text Document" Then
Workbooks.OpenText Filename:=file.path, _
Origin:=xlMSDOS, _
StartRow:=1, _
DataType:=xlDelimited, _
ConsecutiveDelimiter:=True, _
Space:=True
'>>>>>>>>>> add your processing here
End If
Next file

End If ' sFolder <> ""

End Sub



--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[strataguru]

Is there anyway to use a Microsoft tool that is similiar to a Microsof
Explorer window where the user can select the folder rather than rel
on the user to correctly type in the full path

 

[strataguru]

Found a web site that helps:

http://www.cpearson.com/excel/BrowseFolder.htm

At the bottom under "Using the Shell Controls Library"

Thanks for the previous post! Together they help a lot