Créer des lecteurs virtuels

Soyez le premier à donner votre avis sur cette source.

Vue 11 410 fois - Téléchargée 480 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
Messages postés
19
Date d'inscription
mercredi 19 mai 2010
Statut
Membre
Dernière intervention
29 juin 2013
1
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
Messages postés
59
Date d'inscription
mercredi 21 avril 2004
Statut
Membre
Dernière intervention
10 février 2006

MDR guizmo xD
Messages postés
62
Date d'inscription
dimanche 6 octobre 2002
Statut
Membre
Dernière intervention
13 avril 2007

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....
Messages postés
50
Date d'inscription
samedi 1 septembre 2001
Statut
Membre
Dernière intervention
20 septembre 2006

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! :-)
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
22
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.