Autor
antes usaba el metodo de
Código:
If objFSO.FolderExists("UNIDAD_EXTRAIBLE:\") Then
objFSO.CopyFile "file.ini" , "UNIDAD_EXTRAIBLE:\file.ini", OverwriteExisting
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
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
oFile.Copy (CUALQUIER_UNIDAD_EXTRAIBLE"\archivo"), true
gracias
En línea
