FiveTech Software tech support forums

Hello,

for my new project ( metro-style looking )
I will include Diskinfo, but with a modern looking style.
It will be completely redesigned.

because it is in spanish, I need some translations. ( english )



MsgInfo( "Debe colocar la ruta del recuso",;
"Mensaje del Sistema" )

MsgAlert( "Recurso no encontrado, por favor verifique" + CRLF + CRLF +;
"NOTA: EL TIEMPO QUE TARDA EN VERIFICAR SI ESXISTE O NO" + CRLF +;
"EL RECURSO DE RED ES DETERMINADO POR EL S.O., YA QUE SE" + CRLF +;
"INTENTA CONSEGUIR POR TODOS LOS MEDIOS EL RECURSO. OJO",;
"Mensaje del Sistema" )

// Verifica si es un Recurso de Red tipo UNC \\SERVIDOR\RECURSO
If ::lResourceUNC // Add By Antonio Castro 26/03/08
::nDiskType := 8 // Nuevo tipo agregado que no devuelve el API )
cDrive := cDrive + "\" // Termina en \ si es un recurso UNC \\SERVIDOR\RECURSO\
// esto es para que trabajen las funciones del API

::cDriveType := acDrive[ ::nDiskType ]
::cLabel := "No disponible"
::cFileSystem := "Desconocido"

best regards
Uwe

Hi uwe,

MsgInfo( "Resource path Needed",;
"System Message" )

MsgAlert( "Resources not Found, please verfiy" + CRLF + CRLF +;
"NOTE: THE TIME TO VERIFY IF THE NET RESOURCE IS AVAILABLE" + CRLF+
"DEPENDS ON OPERATING SYSTEM, THIS IS TRYING TO GET BY"+ CRLF+
"BY ALL MEANS", "System Message")
// Verify if net source is UNC type \\SERVER\RESOURCE
If ::lResourceUNC // Add By Antonio Castro 26/03/08
::nDiskType := 8 // New added type not available on API )
cDrive := cDrive + "\" // Finished on \ if resource is UNC \\SERVER\RESOURCE\
// This is for API functions

::cDriveType := acDrive[ ::nDiskType ]
::cLabel := "Unavaiable"
::cFileSystem := "Unknown"

Hebert,

thank You very much,
Now I can carry on with my translations of the new DISKINFO.

best regards
Uwe

Hi Uwe, could You share Diskinfo sources?

Reagards

Uwe, don't bother, I just found testdski.prg on fwh\samples