[De Reszke]

hi, wondering if anybody can help me please

I am completly new to vb6, so any help would be much apprecciated

basically I have wrote several vbscripts that do various things, and i wanted to create a user interface with vb6, just simple command buttons that run the selected script

can somebody help me please?

[De Reszke]

I currently have:


Private Sub start_Click()
shell ("c:\program files\cv1.vbs")
End Sub


but no luck

[Datalore]

Try this:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const conSwNormal = 1

Private Sub start_Click()
ShellExecute hWnd, "open", "C:\Program Files\cv1.vbs", vbNullString, vbNullString, conSwNormal
End Sub

That should work. If for some weird reason it doesn't, mess around with this:

Shell ("start C:\Program Files\cv1.vbs")

I don't know if the inclusion of the word "start" or "run" makes a difference.

[De Reszke]

Thankyou very very much, much appreciated

It worked a treat!!!

[brian]

The easiest way I found is

Shell "explorer c:\program files\cv1.vbs"

[Tarun]

A snippet of code that checks for the file you're about to launch. It's helpful in those sort of apps, especially if you deploy to end users.

Public Function FileExists(testFile As String) As Boolean
On Error GoTo noExist
    Dim fn As Long
    fn = FreeFile
    Open testFile For Input As #fn
    Close #fn
    FileExists = True
    Exit Function
noExist: FileExists = False
End Function

Now for your button pressing. (Btw. Give items useful three letter prefixes. Command buttons get cmd etc, List boxes get lst, etc etc.)

Dim Path as String
Private Sub cmdCv1_Click()
    Path = LCase$("C:\PROGRAM FILES\CV1.VBS")
    If FileExists(Path) = True Then
        Call Shell(Path)
    Else
        MsgBox "cv1.vbs was not found." & vbCrLf & "Loading aborted.", vbCritical, "Unable to load cv1.vbs."
    End If
End Sub

[XtremeMaC]

ok www.experts-exchange.com
should help u a lot.. if not this board..

[De Reszke]

Thanks very much you guys, you have all been very helpfull


I have now sorted it!

[Doggie]

best place to start with n00bie coding is buy a book, specifically on visual basic.. (6 or .Net) what ever u have.. or library, or many places on the net.. www.pscode.com for samples. snippets or tutorials..