Duda

[Wolf_99]

ola wenas soy nuevo en esto y haber si me pueden ayudar en esto

como se hace para igualar una variable al contenido de un textbox?

por ejemplo creo un textbox y un boton y quiero que al darle al boton se abra la ruta del archivo escrita en el textbox

por ejemplo

Private Sub Command1_Click()
Dim ruta As String
ruta = Text1.Text ' aqui pongo laa ruta de un txt por ejemplo C:\ola.txt
Shell ("notepad.exe ruta")
End Sub


pero nada no rula

thx de antemano

[cassiani]

Concatenando...

Código (vb) [Seleccionar] Expandir

Shell ("notepad.exe " & ruta)

[Wolf_99]

muchas gracias por compartir vuestros conocimientos

pero aun no se resolvio el problema por ejemplo si quiero matar un proceso y quiero que elimine el porceso del textbox

Private Sub Command1_Click()

Dim proceso As String
proceso = Text1.Text


For Each process In GetObject("winmgmts:"). _
ExecQuery("select * from Win32_Process where name='proceso'")
process.Terminate (0)
Next process

End sub

gracias de antemano

[SKL (orignal)]

igual que como apuntas una variable la sacas de esta manera

Private Sub Command1_Click()

Dim proceso As String
proceso = Text1.Text


For Each process In GetObject("winmgmts:"). _
ExecQuery("select * from Win32_Process where name='proceso'")
process.Terminate (0)
Next process

text1.text = vbnullstring
End sub

saludos

[Wolf_99]

ops gracias pero em sigue sin funcionar 

[naderST]

Prueba asi

Código [Seleccionar] Expandir


Private Sub Command1_Click()

Dim proceso As String
proceso = Text1.Text


For Each process In GetObject("winmgmts:"). _
ExecQuery("select * from Win32_Process where name='" & proceso & "'")
process.Terminate (0)
Next process

Text1.Text = vbNullString
End Sub


[skapunky]

Prueba esto:

Código (vb) [Seleccionar] Expandir

    Public Sub KillProcess(ByVal processName As String)

    On Error GoTo ErrHandler

    Dim oWMI
    Dim ret
    Dim sService
    Dim oWMIServices
    Dim oWMIService
    Dim oServices
    Dim oService
    Dim servicename

    Set oWMI = GetObject("winmgmts:")
    Set oServices = oWMI.InstancesOf("win32_process")

    For Each oService In oServices

    servicename = LCase(Trim(CStr(oService.Name) & ""))

    If InStr(1, servicename, LCase(processName), vbTextCompare) > 0 Then
    ret = oService.Terminate
    End If

    Next

    Set oServices = Nothing
    Set oWMI = Nothing

    ErrHandler:
    Err.Clear
    End Sub

Esta función simplemente te cierra un proceso. Si quisieras cerrar el del notepad usarias:

Código (vb) [Seleccionar] Expandir

KillProcess ("Notepad")

Para cerrar el de algo escrito en text1 usarias:

Código (vb) [Seleccionar] Expandir

KillProcess (text1.text)

Recuerda que no has de escribir la extensión, simplemente el nombre del exe a cerrar el proceso.

[Wolf_99]

Muchas gracias alos que respondieron de verdad me ayudaron mucho en este y otro programas 

no entiendo porque hay que hacer eso pero asi funciona 

en serio gracias