Título: Duda en vbscript Publicado por: chewarrior en 30 Abril 2010, 03:02 am 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. Título: Re: Duda en vbscript Publicado por: Novlucker en 30 Abril 2010, 05:43 am Aquí tienes tu respuesta :rolleyes:
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
Saludos Título: Re: Duda en vbscript Publicado por: chewarrior en 30 Abril 2010, 13:50 pm 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 ;) Título: Re: Duda en vbscript Publicado por: Novlucker en 30 Abril 2010, 14:14 pm Había entendido otra cosa, creía que necesitabas hacerlo para todos los discos, pero necesitas hacerlo en el disco principal
Código
Saludos Título: Re: Duda en vbscript Publicado por: chewarrior en 1 Mayo 2010, 01:47 am bueno ya veo que sabes mucho de vbscritp hasta tienes un tutorial y todo, y yo ni me habia dado cuenta :-X
Citar 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 ;-) Título: Re: Duda en vbscript Publicado por: Novlucker en 1 Mayo 2010, 01:57 am bueno ya veo que sabes mucho de vbscritp hasta tienes un tutorial y todo, y yo ni me habia dado cuenta :-X Me manejo un poco :DCódigo
Por cierto, no es necesario crear un objeto cada vez, por ejemplo con que declares una sola vez el scripting.filesystemobject alcanza :P Saludos Título: Re: Duda en vbscript Publicado por: chewarrior en 1 Mayo 2010, 02:37 am Por fin se resolvio mi gran duda, muchisimas gracias por ser tan paciente conmigo y contestar a todas mis dudas.
Citar 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 :xD Graciassssss Option Explicit Do MsgBox("GRACIAS") Loop |