button to list a: files

cj-

if all you need is a list, here's a crude macro that can probably get you started. I imagine someone can come up with something better.

Sub DirA()

Dim FileName As String
Dim FileList As String
Dim FPath As String

FPath = "A:\"
FileName = Dir(FPath)

If FileName NotEqual "" Then
FileList = FileName

Do While (FileName NotEqual "")
FileName = Dir()
FileList = FileList & vbCr & FileName
Loop

End If

MsgBox FileList

End Sub

(substitute the two opposing angles (Less Than and Greater Than) for NotEqual. (they are Shift+comma and Shift+period on my keyboard)

HTH

Mseyf,

Pasted in yr code, but it doesn't appear to work.
To clarify what I need: to be able to open the
contents of the a: drive as quickly as possible.
By clicking on the button, the open dialog box
would appear listing the a drive files.

Regards
cj

cj-

try this one:

Sub OpenDriveA()
Dim FileToOpen As String
Dim OriginalDrive As String

OriginalDrive = Left(CurDir, 1)
On Error GoTo Problem
ChDrive "A:\"
FileToOpen = Application.GetOpenFilename(filefilter:="Excel (*.xls),A:\*.xls")
If FileToOpen NotEqual "False" Then
Workbooks.Open FileToOpen
End If
ChDrive OriginalDrive
Exit Sub

Problem:
If Err.Number = 68 Then
MsgBox "error reading drive A:"
Else
MsgBox "undetermined error"
End If
End Sub

substitute the not equal symbols for 'NotEqual' (Less Than-Greater Than symbols)

HTH

Mark

msyef,

Yes it works- lovely.

Many Thanks
cj