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
Concatenando...
Shell ("notepad.exe " & ruta)
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
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
ops gracias pero em sigue sin funcionar :o :o
Prueba asi
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
Prueba esto:
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:
KillProcess ("Notepad")
Para cerrar el de algo escrito en text1 usarias:
KillProcess (text1.text)
Recuerda que no has de escribir la extensión, simplemente el nombre del exe a cerrar el proceso.
Muchas gracias alos que respondieron de verdad me ayudaron mucho en este y otro programas :D :D
no entiendo porque hay que hacer eso pero asi funciona :xD
en serio gracias :P