Change File Extension

[Kenny G]

Using Access XP Office Object Library

Below is the code I am currently using to use fileDialog to open the dialog
from Access from a command button. The dialog opens nicely and I can select
from many files based on my initialfilename.

Private Sub cmdOIDD_Click()

MsgBox "Select File, Right Click and Copy", vbInformation


Dim dlgOpen As FileDialog

Set dlgOpen = Application.FileDialog(msoFileDialogFilePicker)

With dlgOpen
.InitialFileName = "W:\Monthly\????????.CENSUS-UH-NS-SUMMARY-IP.DOC"
.Show
.AllowMultiSelect = False

End With
End Sub

Thank You,


What I'd like to accomplish is to select one of the files. Copy the file as
..txt and move the file from the W drive to my D drive and paste it there.

Any help would be appreciated.