Informações sobre Unidade e Diretorio do Sistema

[lpsistemas]

Consegui uma função para capturar o serial do hd, mas tem um problema, em rede eu preciso capturar o serial da unidade mapeada e não do drive C. Achei no NG do Clipper 5.3 a função DISKNAME mas quando compilo dá erro, como se não existisse a função, mas de acordo com o NG, a função é nativa do EXTEND.LIB. Mas da mesma forma tem muitas funções no NG do clipper 5.3 que não funcionam, quando compilo (dá erro).
Como faço para descobrir a unidade do sistema? (E:, F:, etc)? ou o diretorio corrente? ou o nome do sistema?

Obrigado...

[Dudu_XBase]

Bom dia.
Existem essas funções na lib CT ou CTP.lib (protegido)

DISKNAME()

Código: Selecionar todos

  
  DISKNAME()
 Determines the drive designator for the current drive

 Syntax

     DISKNAME() --> cDrive

 Returns

     DISKNAME() returns a letter that identifies the designator as the
     current drive.

 Description

     DISKNAME() determines the current drive designator for the construction
     of complete path names.

 Note

     þ  The designator does not contain a colon.

 Example

     Display the drive designator for the current drive:

     ? DISKNAME()      // Returns a "C" with most hard disk systems


 

DIRNAME ()

Código: Selecionar todos

  DIRNAME()
 Determines the name of the current directory

 Syntax

     DIRNAME([<cDrive>]) --> cDirectory

 Argument

     <cDrive>  Designates the drive for which the current directory is
     determined (a colon is unnecessary).  The default is the current drive.

 Returns

     DIRNAME() returns the current directory name on the <cDrive>.

 Description

     DIRNAME() determines the current directory name on the selected drive.
     You can use this function to construct complete access paths.

 Notes

     þ  The maximum length of the returned value is 65 characters.  If
        no drive designator is specified, the current drive is assumed.

     þ  If there is an invalid drive designation, DIRNAME() returns a
        null string.

 Examples

     þ  Display the current directory name:

        ? "Current Directory:  " + DIRNAME()

     þ  With a drive designator:

        ? DIRNAME("A")               // Current directory on Drive A:
  
  

[lpsistemas]

Valeu, funcionou sim. Pelo que eu entendi então algumas funções que no NG do Clipper dizem ser da lib extend não são na verdade. Eu deixei de usar muitas delas, pq a informação era que era da extend e não funcionavam. Mas agora que compilei usando a CT funcionou. Valeu.
Eu já até tinha criado uma outra forma de pegar essa informação:

Run CD>Info
wUnidade:=Remoread("Info.txt")

Simples, não?