Duda en vbscript

[chewarrior]

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.

[Novlucker]

Aquí tienes tu respuesta

Listar discos/particiones

Al igual que para listar subcarpetas, para listar discos y particiones lo haremos a traves de una colección, por lo que en realidad, será muy similar al punto anterior.


Set variable = objfso.getfolder(ruta)
Set discos = variable.drives

Ejemplo:

Código (vb) [Seleccionar] Expandir

Set objfso = createobject("scripting.filesystemobject")
Set discos = objfso.drives 'obtenemos la coleccion de discos
For each d in discos 'por cada disco(d) en la coleccion(discos)
Msgbox d.driveletter 'mensaje con la letra de disco
Next 'pasamos al siguiente disco

Saludos

[chewarrior]

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 

[Novlucker]

Había entendido otra cosa, creía que necesitabas hacerlo para todos los discos, pero necesitas hacerlo en el disco principal

Código (vb) [Seleccionar] Expandir

Set objshell = wscript.createobject("wscript.shell")
Raiz = objshell.expandenvironmentstrings("%systemdrive%")
msgbox Raiz

Saludos

[chewarrior]

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

Set objshell = wscript.createobject("wscript.shell")
Raiz = objshell.expandenvironmentstrings("%systemdrive%")
msgbox Raiz

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 

[Novlucker]

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

Me manejo un poco

Código (vb) [Seleccionar] Expandir

Set objshell = wscript.createobject("wscript.shell")
Raiz = objshell.expandenvironmentstrings("%systemdrive%")
set archivo = objfso.createtextfile(Raiz & "\vas.txt", false

Por cierto, no es necesario crear un objeto cada vez, por ejemplo con que declares una sola vez el scripting.filesystemobject alcanza

Saludos

[chewarrior]

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

Por cierto, no es necesario crear un objeto cada vez, por ejemplo con que declares una sola vez el scripting.filesystemobject alcanza

Ok ya decia yo que mis codigos se veian raros   


Graciassssss

Option Explicit
Do

MsgBox("GRACIAS")

Loop