browse to folder

[wmbb]

Now I'm using the code below to select the directory with files to handle:

strFolder = "C:\Persdata\Temp\TextFiles\"

Set fs = CreateObject("Scripting.FileSystemObject")
Set fd = fs.GetFolder(strFolder)
Set fc = fd.Files

For Each f In fc
........

Is it possible to browse to the import-folder ?

 

[HarleyQuinn]

thread222-1034376 should give you a few ideas (specifically towards the bottom of the thread). It's in VB6 but the majority of it will port straight over.

Hope this helps

HarleyQuinn
---------------------------------
The most overlooked advantage to owning a computer is that if they foul up there's no law against wacking them around a little. - Joe Martin

Get the most out of Tek-Tips, read FAQ222-2244 before posting.

 

[PHV]

You may use this function:

Function PickFolder(strStartDir As Variant) As String
Dim SA As Object, f As Object
Set SA = CreateObject("Shell.Application")
Set f = SA.BrowseForFolder(0, "Choose a folder", 16 + 32 + 64, strStartDir)
If (Not f Is Nothing) Then
  PickFolder = f.Items.Item.path
End If
Set f = Nothing
Set SA = Nothing
End Function

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886