Mapear Drive de Rede perdido

[sygecom]

Olá Pessoal,

2 funções legais:

MapNetworkDrive => para mapear uma unidade de rede
MapNetworkDrive("F:", "\\servidor-pc\boletos")

Código: Selecionar todos

FUNCTION MapNetworkDrive( cDrive, strLocalDrive ) 
LOCAL objNetwork, lOk:=.T.

    hb_Default(@cDrive, "F:")
    
    objNetwork := Win_OleCreateObject("WScript.Network")

    Try
       objNetwork:MapNetworkDrive(cDrive, strLocalDrive)
    Catch
       lOk:=.F.
    End
  
RETURN lOk

RemoveNetworkDrive => para remover uma unidade mapeada de rede
RemoveNetworkDrive("F:")

Código: Selecionar todos

FUNCTION RemoveNetworkDrive( cDrive ) 
LOCAL objNetwork, lOk:=.T.

    hb_Default(@cDrive, "F:")
    
    objNetwork := Win_OleCreateObject("WScript.Network")

    Try
       objNetwork:RemoveNetworkDrive(cDrive, .T., .T.)
    Catch
       lOk:=.F.
    End

RETURN lOk

asimoes,
Muito boa essas FUNCTION, muito obrigado por compartilhar, resolveu um caso pra mim hoje facilmente, obrigado.