Conocer si la unidad existe

Siguiendo con los filesystem, muchas veces hemos querido saber si alguna unidad existe o no.

La rutina que a continuación les presento nos da la facilidad de saber si es que nuestra unidad existe, pasando como argumento la unidad como una sola letra o como prompt:

Ejemplos:

? "El drive especificado " + IIF(DriverExist('c'), "", "no") + " existe."
? "La ruta especificada " + IIF(DriverExist('c:'), "", "no") + " existe."

Function DriverExist(lcDriveOrPathExist)
 Local Result as logic

 loFSO = CREATEOBJECT('Scripting.FileSystemObject')
 Result=loFSO.DriveExists(lcDriveOrPathExist)
 RELEASE loFSO
 Return Result

Endfunc

Ramón Rodríguez Martínez