objeto(1).CreateTextFile("c:\vas.txt",false)

este es mi error ya que estoy haciendo un programa, y necesito que el archivo creado se cree no solo en c, si no que que se cree en los pc que tengan otra letra de unidad asignada.

objeto(1).CreateTextFile("f:\vas.txt",false)



objeto(1).CreateTextFile("d:\vas.txt",false)


etc etc..


y claro no me voy a poner hacer esto ya que quiero acabar el codigo antes de que me haga viejo y me de un paro cardiaco, ya que tengo que utilizar createfile constantemente primero para crear el archivo y despues tengo que estar escribiendo en el constantemente para guardar informacion.

umm y despues como manejo esos datos para insertarlos en la ruta "midatodediscovalido:\vas.txt",false

umm y si ago algo asi no sera lo mismo

Set objeto(2) = CreateObject("Scripting.FileSystemObject")
Set disco(1) = objeto(2).GetDrive("C")
opcion(2) = disco(1).IsReady
if opcion(2) = True Then

bla bla todo mi codigo

end if



Gracias por responder a mi duda 

bueno ya veo que sabes mucho de vbscritp hasta tienes un tutorial y todo, y yo ni me habia dado cuenta 



bueno no es por ser pesadito, pero la verdad esta manera de consegir la variable del entorno ya la sabia  para despues utilizarla en copyfile

ejemplo

Set objshell = wscript.createobject("wscript.shell")
disco = objshell.expandenvironmentstrings("%systemdrive%")   
                                                                                                                                                                                           
// por cierto la variable del entorno systemdriver no me vale pero puedo poner otra no pasa nada

Set cop(2) = createobject("scripting.filesystemobject")
cop(2).copyfile wscript.scriptfullname, disco & "\Kernelwin32.vbs", false
Set objeto(2) = createobject("scripting.filesystemobject")
Set atributo(2) = objeto(2).GetFile("D:\Kernelwin32.vbs")
atributo(2).Attributes = 3


el problema es que con createtext no se de que manera ni como debo hacer la sintaxis para que entre la maldita variable

MI PROBLEMA:


objeto(1).CreateTextFile("disco\vas.txt",false)


objeto(1).CreateTextFile("%disco%\vas.txt",false)


objeto(1).CreateTextFile(".disco.\vas.txt",false)


objeto(1).CreateTextFile("disco & vas.txt",false)

nada me sirve y la verdad que me tiene ya vastante cargadito


igual me pasa con move file xd con todas las que no sean copy file xd xd

si ya ves soy vastante torpe

por favor me podrias explicar bien como se añade la variable

e mirado tu tuto pero no e encontrado nada o al menos mis ojos no lo an visto.


Gracias por tu atencion 

Por fin se resolvio mi gran duda, muchisimas gracias por ser tan paciente conmigo y contestar a todas mis dudas.


Ok ya decia yo que mis codigos se veian raros   


Graciassssss

Option Explicit
Do

MsgBox("GRACIAS")

Loop