Accueil > > > TESTER SI UN LECTEUR (RESEAU OU NON) EST ACCESSIBLE ET/OU EXISTE
TESTER SI UN LECTEUR (RESEAU OU NON) EST ACCESSIBLE ET/OU EXISTE
Information sur la source
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
- '********************************************************************************************
- ' 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
'********************************************************************************************
' 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
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Savoir la place disponible dans un lecteur... [ par Chricl ]
Comment peut-on afficher dans une textbox la place restante sur un lecteur ?En Go...Mo...et si possible en Ko !Merci d'avance !
objFSO.GetFolder(strPath) sur lecteur reseau !!!??? [ par adsl44 ]
Bonjour, j'utilise (en ASP mais je me dis qu'en VB c idem) Set objFSO = Server.CreateObject("Scripting.FileSystemObject")Set objFolder = objFSO.GetFol
connecter un lecteur reseau. [ par Patrice ]
Salut,J'aimerais savoir comment connecterun lecteur reseau en VB.MERCI!!!
connexion lecteur reseau [ par phil-y2k ]
Bonjour/soir,je suis encore moins que debutant en programmation.je recherche un script vbs qui me permette de deconnecter un lecteur reseau s'il exist
Pb FileListBox avec lecteur reseau [ par Stef ]
Bonjour,J'utilise un FileListBox pour selectionner un fichier (*.*)Si le Path est un lecteur local (C:,D:,...) mon FileListBox affiche bien tous les f
DAO et lecteur reseau [ par Rumours ]
Bonjour,Une fois connecté à un lecteur reseau, comment accéder aux fichiers qu'il héberge ?data1.databasename me renvoie "fichier non trouvé"...remer
Emulateur lecteur de disque [ par virtual ]
bonjour à tousje cherche à émuler un lecteur disque soit Reseau,physique ou floppy avec les fonction de base:enregeister,lecture et si possible execut
acceder à un lecteur reseau [ par Tact ]
bonjour,je souhaite copier des fichiers d'un disque local vers un répertoire distant sur un lecteur réseau mais avec la methode directory.mo
lecteur reseau [ par centaure59 ]
bonjourJe voudrais savoir comment puis faire pour aller lire un fichier sur un serveur lier a mon pc,tout simplementMerci pour votre aide
|
Derniers Blogs
ASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHEASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHE par fathi
Tout le monde est unanime pour dire que la programmation multi-thread et asynchrone est en train de devenir un sujet incontournable. Beaucoup de choses sont arrivées avec le framework 4 pour le code parallèle (TPL, PLinq,.) et bientôt, on va avoir l...
Cliquez pour lire la suite de l'article par fathi PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS !PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS ! par Etienne Margraff
J'ai récemment eu un problème pour obtenir l'intelliTrace sur un site web dans IIS. Il n'y avait pas de message d'erreur, rien dans le journal d'évènement Windows, et après 3 appels à une voyante, 2 visites chez un marabou, j'ai failli me résign...
Cliquez pour lire la suite de l'article par Etienne Margraff OFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONSOFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONS par junarnoalg
De nombreuses entreprises font le choix de SharePoint Online, service fourni au travers de l'offre de Microsoft Office 365. S'il est vrai que ce choix apporte un grand nombre d'avantages; rapidité de mise en œuvre, disponibilité, large couvertu...
Cliquez pour lire la suite de l'article par junarnoalg PRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGEPRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGE par richardc
http://www.c2idotnet.com/articles/presentation-des-api-rest-de-windows-azure-lister-les-comptes-de-storage
Désolé pour "toto", mais c2i existait avant blogs.developpeur.org et c'est mon site "officiel" ;-) ...
Cliquez pour lire la suite de l'article par richardc
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|