View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Colo[_32_] Colo[_32_] is offline
external usenet poster
 
Posts: 1
Default Acquiring filenames for multiple files with GetOpenFilename

Hi John,

Good day, from Japan. :-)
The argument for multiple files is as you wrote, TRUE.
And regarding to a variable type, please declare fName As Variant.
When you select multiple files, it can store the file names as an
array.
And you can judge, if the variable fName has value with "VarType" as
follows.


Code:
--------------------

Sub Macro1()
Dim fName As Variant
Dim f As Variant
fName = Application.GetOpenFilename("DAT files(*.dat),*.dat", 1, "Select DAT files", , True)
If VarType(fName) = 11 Then Exit Sub
For Each f In fName
MsgBox Dir(f)
Next
End Sub

--------------------



---
Message posted from http://www.ExcelForum.com/