[RESOLVED] Conversation Error

[tanhh89]

Public Class Form1


    Private Sub Btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn1.Click

        Dim strCode As String
        Dim myobj As Object, program

        myobj = CreateObject("wscript.shell")
        myobj = myobj.exec("cmd /c c:\myDosProgram.exe")  'your shell command
        Do
            With myobj
                With .StdOut
                    If Not .AtEndOfStream Then
                        strCode = .readall()
                    End If
                End With
            End With
            'DoEvents()
        Loop While myobj.Status = "WshRunning"
        myobj = Nothing

    End Sub
End Class

Conversion from string "WshRunning" to type 'Double' is not valid.

anyone got any idea what i should do to my codes to make it works ?

[dee-u]

Are you trying to convert to .Net or VB6?

[tanhh89]

nope. im using microsoft visual studio 2005

[anhn]

The Status property returns a value from an enumerated type.
WshRunning ( = 0) : The job is still running.
WshFinished ( = 1): The job has completed.

Declare: Const WshRunning = 0
then replace "WshRunning" with WshRunning

or replace "WshRunning" with 0

Loop While myobj.Status = 0

[opus]

Welcome to the VBForums.
If you have questions on VB.NET (which Visiual Studio 2005 is) you'd better post such questions in the Forum "Visual Basic .Net".
I believe you copied that code/ or parts of it somewhere. You missid to copy the declaration of WSHRunnig. Something like:

Const WshRunning = 0
WshFinished = 1
WshFailed = 2

With this declaration you can use WSHRunning without the ""!

Damm it, somebody was faster.

[tanhh89]

ok thx. i did copied the codes. and sry abt psoting at the wrong forum. didnt know visual studio 2005 is vb.net

[si_the_geek]

Thread moved from 'VB6 and Earlier' forum to 'VB.Net' (VB2002 and later) forum