Guardar fichero de texto

[BenRu]

Hola.

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

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

Código [Seleccionar] Expandir

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:

Código [Seleccionar] Expandir

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 

[Jareth]

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:

Código [Seleccionar] Expandir


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.

[BenRu]

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

Código [Seleccionar] Expandir


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 " \ " 

[yeikos]

Pero estás utilizando los dos puntos : 

[BenRu]

Pero estás utilizando los dos puntos : 

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

Código [Seleccionar] Expandir

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 

[Hendrix]

Código [Seleccionar] Expandir

Dim fecha As String

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


[BenRu]

Gracias Hendrix. Ya está solucionado 

Código [Seleccionar] Expandir

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