Test Foro de elhacker.net SMF 2.1

Hola.

Bueno, hace que no programo meses, y tengo la mente oxidada.  :xD

Cuando queremos meter guardar el contenido de algo en un archivo, podemos usar:

Open "C:\texto.txt" for output as #1

Lo que pasa, es que yo quiero que el nombre "texto" sea el contenido de una variable, algo asi:

Open "C:\" & fecha & ".txt" For Output As #1

La variable "fecha" contiene la fecha actual del sistema, asi que el resultado deberia ser:

C:\20 06 07.txt

Pero no se como,he probado con Append y tampoco...

Aver si alguien me hecha una mano.

Un saludo  ;)

Eso es debido a que al contener "/" pues da error,no puedes hacer esto: c:\16/8/.txt porque tira erro por las barras.
Solucion,quitarselas:

Private Sub Command1_Click()
Dim fecha As String, datos() As String
fecha = Date
datos = Split(fecha, "/")
Open "c:\" & datos(0) & datos(1) & datos(2) & ".txt" For Binary As #1
Put #1, , "hi"
Close #1
End Sub

Espero que te sirva.
Saludos.

Es que yo no he usado "Date", lo he hecho un poco mas complejo, con apis.

Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type

Private Sub Form_Load()

Dim SysTime As SYSTEMTIME



GetSystemTime SysTime

fecha = SysTime.wMonth & "-" & SysTime.wDay & "-" & SysTime.wYear & "  " & SysTime.wHour & ":" & SysTime.wMinute & ":" & SysTime.wSecond


End Sub


En ningun lado estoy metiendo " \ "  :-\

Pero estás utilizando los dos puntos :  :rolleyes:

Cita de: YeIk0s en 20 Junio 2007, 21:28 PM
Pero estás utilizando los dos puntos :  :rolleyes:

Jaja, cierto YeIk0s...aunque de todas maneras, sigue sin ir:

fecha = SysTime.wMonth & "-" & SysTime.wDay & "-" & SysTime.wYear & "  " & SysTime.wHour & "-" & SysTime.wMinute & "-" & SysTime.wSecond

Por ahi no hay caracteres no permitidos  :-\

Se guarda sin nombre, pero sí con la extension .txt

Un saludo  ;)

Dim fecha As String

fecha = Day(Now) & "-" & Month(Now) & "-" & Year(Now)
Open "C:\" & fecha & ".txt" For Binary As #1


Gracias Hendrix. Ya está solucionado  :P

Private Sub Command1_Click()
Dim fecha As String


fecha = Day(Now) & "-" & Month(Now) & "-" & Year(Now) & " " & Hour(Now) & "-" & Minute(Now) & "-" & Second(Now)
Open "C:\" & fecha & ".txt" For Binary As #1
End Sub

Un saludo  ;)