02-01-2008 12:15 PM
02-03-2008 09:03 AM
Option Explicit
Dim sgFileName
If (FileNameGet( "ANY", "FileRead", DataReadPath, "TDM data (*.tdm),*.tdm", "FileNameGet.lst", True, "Data selection") = "IDOk") Then
For Each sgFileName In Split(FileDlgFileName,"|")
MsgBox sgFilename
Next
End If
Matthias Alleweldt Project Engineer / Projektingenieur | Twigeater? |