asimoes escreveu:Olá Pessoal,
2 funções legais:
MapNetworkDrive => para mapear uma unidade de rede
MapNetworkDrive("F:", "\\servidor-pc\boletos")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:")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.