1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Fichier / Disque
  5. Tester si un lecteur (reseau ou non) est accessible et/ou existe

Tester si un lecteur (reseau ou non) est accessible et/ou existe

Soyez le premier à donner votre avis sur cette source.

Vue 19 581 fois - Téléchargée 602 fois

Télécharger le projet
Commenter

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.

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
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
sebkill25
Messages postés
10
Date d'inscription
mercredi 24 novembre 2004
Statut
Membre
Dernière intervention
19 juin 2010
18 avril 2007 à 14:20
Slt,
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 !!!
by2k
Messages postés
31
Date d'inscription
samedi 28 février 2004
Statut
Membre
Dernière intervention
8 octobre 2009
5 juil. 2006 à 10:43
Avec un peu de retard, merci pour ce bout de code.
cs_Crackers
Messages postés
2
Date d'inscription
dimanche 18 août 2002
Statut
Membre
Dernière intervention
1 septembre 2002
18 août 2002 à 19:05
Tu as parfaitement raison, les petits programmes , modules et autres servent à enrichir nos propres programmes.
cs_fabrice69
Messages postés
1765
Date d'inscription
jeudi 12 octobre 2000
Statut
Membre
Dernière intervention
11 décembre 2013
 5
2 mai 2002 à 12:51
Tout est fait pour l'ajouter a ton projet 'the....', donc il suffit de t'y mettre un peu ca marche parfaitement.
F___
thekingoftheweb
Messages postés
68
Date d'inscription
mercredi 9 janvier 2002
Statut
Membre
Dernière intervention
2 décembre 2002
20 janv. 2002 à 16:38
Ya même pa de form
S'inscrire maintenant

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.

Du même auteur (cs_Mr X)