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.
1 respuesta
Respuesta de menosmola10
1
Primero tienes que añadir la referencia a la librería Microsoft Scripting Runtime.
Para crear un archivo de texto:
Dim fs As FileSystemObject
Fs.CreateTextFile ("C:\archivo.txt")
Luego puedes copiar este archivo a otro con la extensión que quieras y borrar el archivo ".txt":
Dim Res As Long
Res = CopyFile("C:\archivo.txt","C:\archivo.ext", 0)
Kill "C:\archivo.txt"
Si tiens alguna duda me lo dises...
Para crear un archivo de texto:
Dim fs As FileSystemObject
Fs.CreateTextFile ("C:\archivo.txt")
Luego puedes copiar este archivo a otro con la extensión que quieras y borrar el archivo ".txt":
Dim Res As Long
Res = CopyFile("C:\archivo.txt","C:\archivo.ext", 0)
Kill "C:\archivo.txt"
Si tiens alguna duda me lo dises...
