16 de junio de 2003

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

No hay comentarios. :

Publicar un comentario