File open dialog

[rrc1962]

Is there a way to open a file open dialog in a VB script.  I'm not trying to load G-Code, so button 216 won't work.  Just need to select a file, open it and do some things with it in VB.  Typing the full path in a DRO is a drag.

Thanks

[BR549]

What type file are you talking about ? Gcode , txt file, data file???

From CB you can open a file directly and read and write to it. OR you can open a Gcode file with notepad and edit it.

(;-) TP

[rrc1962]

I need to open a text file and parse it.  I can open the file and manipulate it fine, but in order to open it I have to type the file name in a DRO.  I want to display a file open dialog instead.

[BR549]

I use something like this to open files by file name.

Fname = InputBox("What is the New File Name","Grank Grind FILENAME", DFN)

It gives you a popup box to answer the question


THe use the variable "Fname" to open a new file

[stirling]

Code:

Set objDialog = CreateObject("UserAccounts.CommonDialog")

objDialog.Filter = "Text Documents|*.txt|All Files|*.*"
objDialog.FilterIndex = 1 '*.txt is default
objDialog.InitialDir = "."
intResult = objDialog.ShowOpen
 
If intResult = 0 Then
    'user hit cancel
Else
    'filename is in objDialog.FileName
End If

Season to taste but beware - there be dragons - it'll work in XP but not much else.

Cheers

Ian

[rrc1962]

Season to taste but beware - there be dragons - it'll work in XP but not much else.

Cool.  Thanks very much.  I had seen this done in VB script but didn't see it anywhere in the Cypress Enable docs.  Didn't think it would work in CE. 

[rrc1962]

I use something like this to open files by file name.

Fname = InputBox("What is the New File Name","Grank Grind FILENAME", DFN)

It gives you a popup box to answer the question


THe use the variable "Fname" to open a new file

That's sort of the way I was doing it, except I just used a DRO.  Typing the file name just started getting old.