Code in VBScript to return an Object/array of files in a directory?

[srj19]

I've done this in VBA using Application.Filesearch and then a new method when 2007 eliminated that option.

I've yet to figure out how, or even if I can select a directory, and then work with every file in that directory.

Or even if it's possile to get a file/directory dialog that allows me to click and select a specific file.

Thanks for help,

Scott

 

[Norie]

Scott

If you just want to work with files and folders you could use the FSO (File System Object).

If you want dialogs to select files/folders there are various methods.

You should find one suitable for your needs if you search.

Here's a link to one http://www.wisesoft.co.uk/scripts/vbscript_display_open_folder_dialog.aspx.

 

[srj19]

I did manage to do it with some similar code to what I used before however it's only allowing the selection of a single file and not the file/folder.

I don't see any options for special code pastes so here is what I'm using that "works" to yeild the entire path to the selected file but I'm wondering if I'm missing a small tweak that would make this return the path to the file/folder itself sans the file.

Dim xlApp
Dim fd
Dim owbk
Dim dirr
Dim msoFileDialogFolderPicker
msoFileDialogFolderPicker = 1

Set xlApp = CreateObject("Excel.Application")

Set fd = xlApp.FileDialog(msoFileDialogFolderPicker)

With fd
.Title = "Please navigate to the folder to be processed"
.InitialFileName = "C:\Documents and Settings\user\Desktop\"
.Filters.Add "Excel Files", "*.xls*", 1
.AllowMultiSelect = True
If .Show = -1 Then
dirr = .SelectedItems(1)
end if
End With


msgbox(dirr)

 

[ghdstraightener]

Thanks for sharing.




Ghd Fladjern Danmark
Ghd Midnight Deluxe
Ghd Pink Fladjern

 

[brettdj]

I've done this in VBA using Application.Filesearch and then a new method when 2007 eliminated that option.

I've yet to figure out how, or even if I can select a directory, and then work with every file in that directory.
Scott

I normally use Shell to pick a directory (it can also take a default suggestion), and the Dir to process each file in that given directory (recursion can be used to process sub-folders)

I have a sample here that uses this approach to consolidate all the Excel files in a folder to a single summary workbook

Cheers

Dave