Visual Basic - Archivo vacio

Life is soft - evento anual de software empresarial
 
Vista:

Archivo vacio

Publicado por cosmito (4 intervenciones) el 27/05/2020 17:29:23
Que tal,

tengo este codigo:
1
2
3
4
Set fso = CreateObject("scripting.FileSystemObject")
For i = 0 To 1000000000
     Set Fill = fso.createTextFile("C:\Users\alejo\Desktop\ensayo" & i & ".txt")
Next
para crear el archivo ensayo pero llega vacio al escitorio(o bytes). Como haria para que llegara con informacion?
Alguien pudiera darme una idea? por favor.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Archivo vacio

Publicado por cosmito (4 intervenciones) el 27/05/2020 17:54:59
tengo ahora este codigo para crear 1 documento que debo crear en el escritorio de una persona Mayor.

1
2
3
4
5
6
7
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
	For i = 0 To 3
	  Set OutPutFile = FSO.OpenTextFile("C:\Users\damian\Desktop\test.txt" ,8 , i True)
          OutPutFile.WriteLine("Aqui iria el texto")
        Next
Set FSO= Nothing

pero me da este error:
Linea: 4
Caracter: 4
error: Permiso denegado

Claro sin el For si lo hace pero al ponerle el For da el mencionado mensaje de Error.
Si alguien pudiera ayudarme.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.922
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Archivo vacio

Publicado por Andres Leonardo (1739 intervenciones) el 27/05/2020 22:12:13
ers visual basic 6 .0 ??? o vb.net?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Archivo vacio

Publicado por cosmito (33 intervenciones) el 27/05/2020 23:29:30
Hola. Es visual basic 6 .0
Rectifico Andres he revisado la computadora de la persona y tiene es Visual Basic Script.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.922
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Archivo vacio

Publicado por Andres Leonardo (1739 intervenciones) el 28/05/2020 04:08:13
Puedes probar asi y los archivos no estan vacios.....le puse un texto "UNA LINEA."

1
2
3
4
5
6
7
8
Set fs = CreateObject("Scripting.FileSystemObject")
For i = 1 To 10
   'Creamos un archivo con el método CreateTextFile
   n = "C:\Andres\Visual\FilesV\MiArchivo " & i & " .txt"
   Set Archivo = fs.CreateTextFile(n, True)
   Archivo.WriteLine "Una linea"
   Archivo.Close
next

Captura
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Archivo vacio

Publicado por cosmito (33 intervenciones) el 28/05/2020 18:52:58
Gracias, ya lo copié cuando llegue a donde debo instalarlo y lo pruebo, gracias amigo a cualquier duda pedire su ayuda.
saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Archivo vacio

Publicado por cosmito (33 intervenciones) el 29/05/2020 16:32:21
Si funcionó Amigo Andres. Gracias muchas gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar