Mensajes

no no no, el error no tiene q ver anda con el codigo xk e probado a crear un proyecto nuevo e inmediatamente guardarlo, lo e cerrado y lo e vuelto a abrir y m sale el error 

Me sigue sin ir 

He desistalado reinstalado instalado... vaya q l e dado mil vuelas y m sigue sin ir 

Solo en diseño.

Voy a probar cn lo d reinstalar los services packs, lo de+ ya lo e probado

Este no es un tipo d error que yo tenga al programar algo..sino que m sale al visualizar el formulario, caundo esta en el codigo esa normal y no tira error pero cuando intento ver el form m sale este error.

En primer lugar, lo de 30.000 serian 30 segundos, 1000 seria un segundo ya que la medida es en milisegundos.

Código [Seleccionar] Expandir


dim t     as integer
dim n    as integer

private sub Form_load
n = 1
timer1.interval = 60000
end sub

private sub timer1_timer
t = t + 1
if t < 30 then exit sub
  open  "C:\log" & n & ".txt" for output as #1
   print #1,, text1.text
  close #1
n = n + 1
t = 0
end sub

Creo que no hay ningun error

El problema es que lo estas depurando sin haberlo generado.. haz lo siguiente da a archivo -> generar.

Al menos tu problema me pasaba a mi así

  No conocia lo de Environ 










Salu2

Salen al escribir write, en vez d eso, escribe print. La sintaxis es la misma.

Otra cos, es que en vez de escribir vbnewline utiliza vbcrlf, que es como dar al intro

Eso no aberigua el disco....

Eso en muchos ordenadores suele venir "C:" pero no tiene xq serlo.. por ejemplo yo tengo 2 particiones y si lo ejecuto en D (la 2 particion) m sale D, obvio.

Lo que tienes que hacer es buscar la carpeta del sistema y quedarte con la letra.

Código [Seleccionar] Expandir

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sub Form_Load()
    Dim sSave As String, Ret As Long
    sSave = Space(255)
    Ret = GetSystemDirectory(sSave, 255)
    sSave = Left$(sSave, Ret)
    Debug.Print Left(sSave, InStr(sSave, ":"))
End Sub


alguien sabe hacer esto en vb6 ??