fsuso
13 de Noviembre del 2003

Alguien sabe como determino si existe una unidad de disco por ejemplo la f:

Luisen98
13 de Noviembre del 2003

Luis Ma. Guayan escribio esta rutina:

? ExisteUnidad("A:")
*------------------------------------------------------*
FUNCTION ExisteUnidad(tcUnidad)
RETURN (DISKSPACE(tcUnidad) # -1)
ENDFUNC

Mira Jorge Mota, escribio esta API, que tal vez pudiera servirte, Su funcion es indicarte si la unidad especificada es Local o Red.

Por ejemplo, si le pasamos "C:/" devolvera Cero, si le pasamos "F:/Archivos" y F es una unidad Mapeada a un recurso de otra maquina nos devolvera 1 (uno), si es disco Local 0 (cero).

Espero Os Sirva.

Declare long PathIsNetworkPath IN "shlwapi.dll" string pszPath

?PathIsNetworkPath("C:/")
?PathIsNetworkPath("F:/")

Alex
13 de Noviembre del 2003

Esto hace lo mismo que la función que te dio Luisen, solo para que veas varias formas:

Unidad ='F:'
If DiskSpace(Unidad)=-1 && -1 indica que no hay disco en la unidad
(vale para disqueteras u otras unidades)
wait window "No hay disco en la unidad "+Unidad
Return .f.
ELSE
wait window "Si hay disco en la unidad "+Unidad
Return .t.
EndIf