[RESOLVED] Conversation Error

Code:

---

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 ?

Are you trying to convert to .Net or VB6?

nope. im using microsoft visual studio 2005

Quote:

---

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

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:

Code:

---

Const WshRunning = 0
WshFinished = 1
WshFailed = 2

---

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

Damm it, somebody was faster.

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

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