Cita:
Iniciado por A.H.H 
HOLA HiguaiiN
Primero te dire, que CULD no tiene razon al llamarte Bruto, ya que a Franko1809, le funciona el codigo ya que su ruta no contiene las carpetas que tu tienes en tu ruta, osea que usa solo el app.path + un archivo de texto, que NO ES LO QUE QUIERES TU, ya que en tu ejemplo usas el app.path + un directorio + subdirectorio +archivo de texto.
Aclarando esto, te dire que el error te lo tira porque primero debes crear el directorio \database y despues el subdirectorio \new_habbo, y una vez que existen estas dos carpetas ya puedes abrir el archivo de texto \hcdays.txt
Osea el error es porque no encuentra la ruta de esas dos carpetas, ya que el archivo de texto esta metido dentro del subdirectorio \new_habbo.
En vb6 se puede crear el directorio como sabemos con mkdir pero para crear un subdirectorio se complica la cosa.
hacemos MkDir (App.Path & "\database") para crear la primera carpeta.
hacemos MkDir (App.Path & "\database") & ("\new_habbo") para crear dentro el subdirectorio
ANTES de crear las carpetas deberias preguntar con DIR en el FORM_LOAD si existe la ruta, entonces compruebas que si no existe que la cree, y que si existe que lea o guarde.
PODRIA SER ESTE TU CODIGO:
espero hayas entendido de que al crear o leer un archivo de texto, primero la ruta debe de existir si no dara error.
salu2
Pf , totalmente un crack , tu código me vale de 100 para que lo sepas , ya pude hacer lo que queria , estaba encallado pero pude gracias a tí , me parece que los demás no tenian razón pero igual gracias por ayudar
Gracias mil veces ati A.H.H por ayudarme ^^