Imprimir Página - copiar archivo en vbscript a "X" unidad

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

Código:

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

Código:

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:

Código:

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

gracias :D

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: octalh en 25 Noviembre 2007, 23:41 pm