Mappage réseau

Messages postés
6
Date d'inscription
jeudi 24 août 2006
Statut
Membre
Dernière intervention
20 septembre 2006
-
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
bonjour,

Dans cette ligne de code:

Set ObjNetwork = Wscript.CreateObject("Wscript.Network")
ObjNetwork.MapNetworkDrive "W:" , "Chem_Serveur\Repertoire"

J'aimerai savoir s'il est possible de remplacer la lettre "W:" par une instruction qui demanderait au script d'associer une lettre non utilisée par windows, sans avoir à la preciser.

Merci à qui pourra m'aider

Phil

1 réponse

Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
73
Function GetDiskFreeLetter()
Dim oFSO
Dim oDrive
Dim i
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    For i = 67  To 90
        On Error Resume Next
        Set oDrive = oFSO.GetDrive(Chr(i) & ":")
        If oDrive Is Nothing Then
            GetDiskFreeLetter = Chr(i)
            Exit Function
        End If
    Next
End Function

MsgBox GetDiskFreeLetter()

Renfield
Admin CodeS-SourceS- MVP Visual Basic