Form Macro Button Help Needed to Explore a File Directory

[Antonio-F100]

Hello,

I need help creating the code for a macro
button on a form that will open a file
directory with windows explorer.

I have about 500 directories with very
long names and only want to input part
of the directory name into the table
that the form uses.

directory name examples:
c:\data\MK-0001_machine_tool_programs\
c:\data\MK-0002_machine_tool_fixtures\
c:\data\MK-0500_machine_tool_maintenance\

The first part of the dirctory name is always the same:
c:\data\

I just want to enter the next seven characters in my table
into a filed called "directory". Example:
Mk-0001
MK-0002
MK-0500

The rest of the directory name ideally can be represented by a
wildcard "*'. If this isn't possible, I can enter the whole
directory name into the table.

Therefore, when I open my form, select a record, then hit
the macro buttom, it will open windows explorer based on
the value stored in my "directory" field.
Thank you for your help.
Antonio

[ADezii]

Hello,

I need help creating the code for a macro
button on a form that will open a file
directory with windows explorer.

I have about 500 directories with very
long names and only want to input part
of the directory name into the table
that the form uses.

directory name examples:
c:\data\MK-0001_machine_tool_programs\
c:\data\MK-0002_machine_tool_fixtures\
c:\data\MK-0500_machine_tool_maintenance\

The first part of the dirctory name is always the same:
c:\data\

I just want to enter the next seven characters in my table
into a filed called "directory". Example:
Mk-0001
MK-0002
MK-0500

The rest of the directory name ideally can be represented by a
wildcard "*'. If this isn't possible, I can enter the whole
directory name into the table.

Therefore, when I open my form, select a record, then hit
the macro buttom, it will open windows explorer based on
the value stored in my "directory" field.


Thank you for your help.
Antonio

'This should point you in the right direction
'Must 1st set a Reference to the Microsoft Office 11.0 Object Library
'(mso.dll) - Access 2003

Dim varItem As Variant

With Application.FileDialog(msoFileDialogFilePicker)
With .Filters
.Clear
.Add "Text Files", "*.txt"
.Add "Database Files", "*.mdb"
.Add "All Files", "*.*"
End With
'The Show Method returns True if 1 or more files are selected
.AllowMultiSelect = False
.FilterIndex = 3 'All files
.ButtonName = "Open Sesame"
.InitialFileName = "C:\Data\" & Dir("C:\Data\MK-0003*", vbDirectory)
.InitialView = msoFileDialogViewDetails
.Title = "Find the damn File!"
If .Show Then
For Each varItem In .SelectedItems
MsgBox varItem
Next varItem
End If
End With

[Allen Browne]

Answered in microsoft.public.access.formscoding