Tester si un lecteur (reseau ou non) est accessible et/ou existe
Soyez le premier à donner votre avis sur cette source.
Vue 18 708 fois - Téléchargée 588 fois
Description
Test si un lecteur (drive) existe et s'il est accessible.
Cette fonction permet également de tester si un drive réseau non mappé (eg: 'serveurdirectory')est accessible.
Cette fonction utilise la librairie SCRIPTING de Microsoft (SCRRUN.DLL) elle peut donc être utilisée sous VB6 et en ASP.
Cette fonction permet également de tester si un drive réseau non mappé (eg: 'serveurdirectory')est accessible.
Cette fonction utilise la librairie SCRIPTING de Microsoft (SCRRUN.DLL) elle peut donc être utilisée sous VB6 et en ASP.
Source / Exemple :
'********************************************************************************************
' Name : xIsDriveReady
' Purpose : Test if a drive is exist and is ready to be used
' Syntax : xIsDriveReady(DriveName)
' Parameters : DriveName : The drive name or full path.
' eg: "c", "c:", "c:windows", or "my computermy directory"
' Return : True is the drive is ready, False if it is not
'********************************************************************************************
Public Function xIsDriveReady(ByVal DriveName As String) As Boolean
Dim objFileSys As Object
Dim objDrive As Object
Dim strDrive As String
On Error GoTo DriveError
If Left(DriveName, 1) = "" Then
strDrive = DriveName ' If it is a network path, then let it as it is.
Else
strDrive = Left(DriveName, 1) & ":" ' Create the drive name, to be sure it is in the correct format. eg: "C:"
End If
Set objFileSys = CreateObject("Scripting.FileSystemObject") ' Create the filesystem object
Set objDrive = objFileSys.GetDrive(CStr(strDrive))
If objFileSys.DriveExists(strDrive) Then ' Test if the drive exist
xIsDriveReady = objDrive.IsReady ' Test if it is ready to be used
Else
xIsDriveReady = False
End If
Exit Function
DriveError:
xIsDriveReady = False
End Function
Codes Sources
A voir également
- Test lecteur reseau
- Test vb - Meilleures réponses
- Vb test - Meilleures réponses
- Tester si un lecteur réseau est bien connecté (VB console) ✓ - Forum - VB.NET
- Verifie si connecter sinon connecte a un lecteur reseau - Codes sources - Visual Basic / VB.NET (Système)
- Connection d'un lecteur réseau - Codes sources - Delphi / Pascal (Réseau & Internet)
- Connecter déconnecter un lecteur réseau (amelioré un peu) - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
- Visual Basic / VB.NET : Test lecteur cd ou dvd ouvert ou fermé - CodeS SourceS - Guide
Une fois que j'ai msi ce code dans un module je fais comment pour l'appeler ?
Je désire remplir une Combo_box avec les lecteur de disponible sur le pc ...
Merçi !!!
- Messages postés
-
1765
- Date d'inscription
- jeudi 12 octobre 2000
- Statut
- Modérateur
- Dernière intervention
- 11 décembre 2013
6F___
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.