elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado:


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Problemas al creear y leer archivo
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Problemas al creear y leer archivo  (Leído 1,485 veces)
_teiki

Desconectado Desconectado

Mensajes: 93



Ver Perfil WWW
Problemas al creear y leer archivo
« en: 12 Julio 2006, 02:31 am »

Bueno lo que quiero es que cree y abra un archivo con el nombre de la pc y la hora y dia. Al poner solo la Funcion PC_Name no me da error, pero al agregarle la Funcion Time_pc me sale error -Run-time error "13"- Type Mismatch

Aqui esta el codigo:
Código:
Dim sSave As String, ret As Long
sSave = Space(255)
    ret = GetSystemDirectory(sSave, 255)
    sSave = Left$(sSave, ret)
Open (sSave + "/" + Time_pc + PC_Name + ".sys") For Output As #1     ' Se abre el archivo
Print #1, Text1.Text ' se sobre escribe el log
Close #1 ' y se cierra
Gracias de antemano


En línea

<--v1c1ous-->


Desconectado Desconectado

Mensajes: 776


¡Operadora! ¡Deme el número para el 911! - Homero


Ver Perfil WWW
Re: Problemas al creear y leer archivo
« Respuesta #1 en: 12 Julio 2006, 06:01 am »

Código:
Open (sSave & "/" & Time_pc & PC_Name & ".sys") For Output As #1

Lo que no entiendo porque tanto lio, simplifica un poco.

Código:
Fuction SaveLog()
Dim sSave as String
Dim TimePc$
Dim PCName$

sSave = GetSystemDirectory
TimePC =LocalTime
PCName = NombrePc

if Right(sSave,1) = "/" then
GoTo Save:
Else
sSave = sSave & "/"
End If

Save:
Open (sSave & TimePc & PCName & ".sys") For Output As #1
Print #1, Text1.Text
Close #1
End Function

Obvio que entendes que al hacer esto creara un nuevo archivo con una nueva fecha en cada ejecucion de la funcion.

Bien podrias cambiar el codigo para que:
Código:
Open (sSave & PCName & ".sys") For Output As #1
Print #1, "Hora Actual: " & TimePC & " - " & Text1.Text

Asi crearias un solo archivo y dentro separado por horas, eso si, cambiando el Open para que no sobreescriba.


En línea


_teiki

Desconectado Desconectado

Mensajes: 93



Ver Perfil WWW
Re: Problemas al creear y leer archivo
« Respuesta #2 en: 12 Julio 2006, 06:11 am »

 Si, por eso quiero poner el timpo.
Gracias por la ayuda :)
En línea

NYlOn


Desconectado Desconectado

Mensajes: 842


OOOOHHHHHH, TARAGÜIIII xDDDDDD


Ver Perfil WWW
Re: Problemas al creear y leer archivo
« Respuesta #3 en: 12 Julio 2006, 06:41 am »

No es Time_Pc es Time solo. Y si no queres sobre escribir podes abrir el archivo de modo Append (y no Output). Otra cosa, es recomendable usar &en vez de + pq a veces puede causar resultados no esperados. Por ejepmplo:
Código:
Dim A as long, B as long
A = 10
B = 24
MsgBox A + B ' Te da 34
MsgBox A & B ' Te da 1024 (las dos cadenas "pegadas"

En línea

<--v1c1ous-->


Desconectado Desconectado

Mensajes: 776


¡Operadora! ¡Deme el número para el 911! - Homero


Ver Perfil WWW
Re: Problemas al creear y leer archivo
« Respuesta #4 en: 12 Julio 2006, 18:08 pm »

"+" y "&" son terminos distintos, no solo aveces inesperados, para unir dos cadenas se usa "&", de lo contrario no las estarias uniendo, sino haciendo una operacion y las sumaria, no uniria.
En línea


Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Problemas al leer web.config
.NET (C#, VB.NET, ASP)
apache_scrc 3 3,861 Último mensaje 22 Diciembre 2010, 22:50 pm
por [D4N93R]
Ayuda como creear funciones en C/C++
Programación C/C++
Schiffer04 4 2,040 Último mensaje 10 Mayo 2012, 17:09 pm
por durasno
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines