Crear un archivo con una extensión cualquiera
Como crear un archivo(obviamente para guardar y leer información)que puede ser originalmente uno .txt pero que yo le pueda cambiar la extensión.
----
Realice la siguiente sentencia, pero me devuelve mensaje de error "Error de Compilación, Procedimiento Sub o Función no Definida"
Dim Reg As FileSystemObject
Reg.CreateTextFile (App.Path & "SrCo.txt")
Dim Res As Long
Res = CopyFile(App.Path & "SrCo.txt", App.Path & "SrCo.sdc", 0)
Kill App.Path & "SrCo.txt"
Que estoy haciendo mal
----
Realice la siguiente sentencia, pero me devuelve mensaje de error "Error de Compilación, Procedimiento Sub o Función no Definida"
Dim Reg As FileSystemObject
Reg.CreateTextFile (App.Path & "SrCo.txt")
Dim Res As Long
Res = CopyFile(App.Path & "SrCo.txt", App.Path & "SrCo.sdc", 0)
Kill App.Path & "SrCo.txt"
Que estoy haciendo mal
1 respuesta
Respuesta de mrtool
1
Yo lo hago a la vieja escuela, no me apaño bien con los nuevos objetos.
Prueba esto.
Open "mirutadearchivoconextensionquequiera" for output as #1
print #1, tal y cual ' con Print escribes texto luego se lee con 'read'
Put#1 pascual y real ' put escribe formato binario luego se lee con 'get' usa uno u otro, no los puedes mezclar en el mismo archivo.
Close#1 cuando hayas acabado.
Mira en la ayuda o en internet más información sobre las distintas opciones de la sentencia open.
De todas formas el que sea un archivo de texto no quiere decir que deba tener extensión .txt, ¿has probado a nombrarlo directamente con la extensión sdc? Yo creo que te lo admitirá.
Prueba esto.
Open "mirutadearchivoconextensionquequiera" for output as #1
print #1, tal y cual ' con Print escribes texto luego se lee con 'read'
Put#1 pascual y real ' put escribe formato binario luego se lee con 'get' usa uno u otro, no los puedes mezclar en el mismo archivo.
Close#1 cuando hayas acabado.
Mira en la ayuda o en internet más información sobre las distintas opciones de la sentencia open.
De todas formas el que sea un archivo de texto no quiere decir que deba tener extensión .txt, ¿has probado a nombrarlo directamente con la extensión sdc? Yo creo que te lo admitirá.
