copiar archivo en vbscript a "X" unidad

Iniciado por octalh, 25 Noviembre 2007, 23:41 PM

0 Miembros y 1 Visitante están viendo este tema.

octalh

Hola estoy haciendo un script que copia un archivo desde C a una unidad extraible
antes usaba el metodo de

If objFSO.FolderExists("UNIDAD_EXTRAIBLE:\") Then
objFSO.CopyFile "file.ini" , "UNIDAD_EXTRAIBLE:\file.ini", OverwriteExisting


pero no me gustaba puesto que este metodo solo verifica que exista dicha unidad sin importar si sea extraible o no entonces despues halle este code

Const DriveTypeRemovable = 1
Set oFS = Wscript.CreateObject("Scripting.FileSystemObject")
Set oDrives = oFS.Drives 'Loop thru A-Z. If found, exit early.
For Each Drive in oDrives
If Drive.DriveType = DriveTypeRemovable Then
If Drive.DriveLetter <> "A" Then
Wscript.Echo "Don't forget your thumb drive! " + Drive.DriveLetter
End If
End If
Next


ese codigo te da un aviso si tienes un medio extraible conectado (pendrives, ipod, etc..)
lo que quiero hacer es que por ejemplo si detecta una unidad extraible sin importar cual sea copie dicho archivo desde C a la unidad extraible

el problema es que no se como indicarle al codigo que el destino sea "X" unidad

algo asi como:

Set oFile = oFS.GetFile("C:\archivo")
oFile.Copy (CUALQUIER_UNIDAD_EXTRAIBLE"\archivo"), true


gracias :D

octalh

me kontesto a mi mismo  :xD

solo tenia que agregar el Drive.DriveLetter antes del patch  :rolleyes:

Thanks anyway