Mappage réseau
pricrot
Messages postés
6
Date d'inscription
jeudi 24 août 2006
Statut
Membre
Dernière intervention
20 septembre 2006
-
20 sept. 2006 à 15:24
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 20 sept. 2006 à 15:50
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 20 sept. 2006 à 15:50
1 réponse
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
20 sept. 2006 à 15:50
20 sept. 2006 à 15:50
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
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