Mensajes

hola amigos estoy haciendo un programa que guarda un archivo de texto llamado hola.txt en la unidad que se indica en un cuadro de text

Código [Seleccionar] Expandir


'primero creo un control text1 con la propiedad text vacia y un command1, luego pongo esto
Private Sub Command1_Click()
Dim path As String
texxto = Text1.Text
Open path & texxto & ":\" & "hola.txt" For Append As #1
        Print #1, "hola mundo"
       Close #1
End Sub



pero no funciona sale error 52 nombre o numero de archivo incorrecto, no funciona aun poniendo entre comillas la letra de unidad en el control text1. espero que me ayuden

saludos

listo funciona!

gracias

hola amigos ,estoy haciendo un programa que evita que ciertas juegos sean ejecutados (las cierra). 

El programa es simple. cada vez que el timer bat sea verdadero, empieza a cerrar
ciertos juegos usando una orden de batch (taskkill)

Código [Seleccionar] Expandir


'primero creamos 1 timer llamado bat que tiene 8000 de intervalo
Private Sub bat_Timer()
Dim path As String
If bat = True Then
    Shell "cmd.exe /c taskkill /f /im gta-vc.exe ", 0
    Shell "cmd.exe /c taskkill /f /im NyxLauncher.exe ", 0
    Shell "cmd.exe /c taskkill /f /im Diablo II.exe ", 0
    Shell "cmd.exe /c taskkill /f /im Frozen Throne.exe ", 0
   
     End If
End Sub


Pero este codigo tiene un inconveniente. Y es que va a ver redundancia de ordenes taskkill(por consiguiente, "lageo" del sistema) . Para evitar eso desearia poner una suerte de pausas o "esperar 5555 milisegundos para pasar a la siguiente instruccion" algo asi como

Código [Seleccionar] Expandir


'primero creamos 1 timer llamado bat que tiene 8000 de intervalo
Private Sub bat_Timer()
Dim path As String
If bat = True Then
    Shell "cmd.exe /c taskkill /f /im gta-vc.exe ", 0
    espere 5555 milisegundos para el siguiente
    Shell "cmd.exe /c taskkill /f /im NyxLauncher.exe ", 0
    espere 5555 milisegundos para el siguiente
    Shell "cmd.exe /c taskkill /f /im Diablo II.exe ", 0
    espere 5555 milisegundos para el siguiente
    Shell "cmd.exe /c taskkill /f /im Frozen Throne.exe ", 0
   
     End If
End Sub


Pero lamentablemente no se mucho de VB . espero que me ayuden

saludos

quisiera que me ayuden con un source si esto es posible . Al hacer doble click sobre el contenedor , que se "extraiga" el archivo contenido en el a la unidad c:


saludos