Sub opensezAme(sPATH, sDrive As String)
Dim TPATH As Object
Set TPATH = CreateObject("WScript.Network")
On Error Resume Next
TPATH.MapNetworkDrive sPATH, sDrive
End Sub
------------------------------------------------------
Sub closesezAme(sDrive As...