Créer des lecteurs virtuels

0/5 (10 avis)

Vue 11 656 fois - Téléchargée 499 fois

Description

Cette source vous montre comment créer un lecteur virtuel grace à Subst même si je sais que je ne vais rien apprendre à personne !

Il vous faut 2 combos et 3 bouttons

Source / Exemple :


Dim I As Long, InDir As String
Dim sLettre As String, sTouteLettre As String
Dim WShShell As Object, FSO As Object
Dim Lecteur As Object

Private Sub cmdCheminVirtuel_Click(Index As Integer)

'Créer un lecteur virtuel

    Select Case Index
        Case 0
            InDir = BrowseFolder(Me.hwnd, vbNullString)
            If InDir = vbNullString Then
                Exit Sub
            End If
            txtChemLecteur = InDir
        
        Case 1
            Shell "subst.exe" & " " & cmbLecteurDispo(0).Text & " " & lblGuil.Caption & InDir & lblGuil.Caption, vbHide
            If chkCreerLecteurVirtuel.Value = 1 Then
                WShShell.RegRead "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & LCase$(Right$(cmbLecteurDispo(0).Text, 2)), "subst.exe" & " " & cmbLecteurDispo(0).Text & " " & lblGuil.Caption & InDir & lblGuil.Caption
            End If
            
            MsgBox "Création termninée avec succès !", vbInformation
                 
        Case 2

            Shell "subst.exe" & " /D " & cmbLecteurDispo(1).Text, vbHide
            
            MsgBox "Suppression termninée avec succès !", vbInformation
    End Select

    Exit Sub
    
End Sub

Private Sub Form_Load()

        sLettre = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        sTouteLettre = sLettre
   
        Set FSO = CreateObject("Scripting.FileSystemObject")
        Set Lecteur = FSO.GetDrive("c:\")
        Set WShShell = CreateObject("WScript.Shell")

        'Liste la chaine sLettre dans la liste de lecteurs virtuels
        cmbLecteurDispo(0).Clear
        cmbLecteurDispo(1).Clear
        For Each Lecteur In FSO.Drives
            sLettre = Replace(sLettre, Lecteur.DriveLetter, vbNullString)
        Next Lecteur
        
        For I = 1 To Len(sLettre)
            cmbLecteurDispo(0).AddItem Right(Mid(sLettre, 1, (Len(sLettre) + 1) - I), 1) & ":"
        Next I
        For I = 1 To Len(sTouteLettre)
                cmbLecteurDispo(1).AddItem Right(Mid(sTouteLettre, 1, (Len(sTouteLettre) + 1) - I), 1) & ":"
        Next I
               
        cmbLecteurDispo(0).ListIndex = 0
        cmbLecteurDispo(1).ListIndex = 0

End Sub

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cracken35 Messages postés 19 Date d'inscription mercredi 19 mai 2010 Statut Membre Dernière intervention 29 juin 2013 1
5 juin 2011 à 12:58
pour ma part se code me serait utile sauf que sa fait que 10 jours que j'apprend le vb donc la je voit pas trop a quoi sert telle et telle ligne merci de me donner le lien du meme code avec des commentaire .

merci d'avance car la je nage :s
cs_JP07 Messages postés 59 Date d'inscription mercredi 21 avril 2004 Statut Membre Dernière intervention 10 février 2006
29 nov. 2005 à 17:15
MDR guizmo xD
guizmo123 Messages postés 62 Date d'inscription dimanche 6 octobre 2002 Statut Membre Dernière intervention 13 avril 2007
9 juin 2004 à 19:47
J'ai plus l'impression qu't'essaie de te la péter avec ton 672 Ko/sec (se référer à la capture) plutôt que de nous présenter ton code qui est déjà présent sur le site... Surtout quand on voit ce que c'est...

No comment....
flagyg Messages postés 50 Date d'inscription samedi 1 septembre 2001 Statut Membre Dernière intervention 20 septembre 2006
5 févr. 2003 à 14:10
juste une ptite question:a quoi sa sert un lecteur virtuel??(hé ouais les débutants ça éxiste,sans eux il n'y aurait pas de scientifiques pensez-y! :-)
cs_Willi Messages postés 2375 Date d'inscription jeudi 12 juillet 2001 Statut Modérateur Dernière intervention 15 décembre 2018 22
8 août 2002 à 22:53
C OK je vais le rajouter

merci pour l'idée
Afficher les 10 commentaires

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.