Lancez un nouveau projet VB6 et placez ce code dans la forme.
Vérifiez qu'une disquette est en place dans le lecteur de disquette.
Vous ASSURER que le repertoire 'MonRepertoire' n'existe pas déjà!
Visitez mon site !!!:
http://www.cyberbeach.net/~loudelon
Source / Exemple :
Private Sub Form_Load()
SousRepertoires
End
End Sub
Private Sub SousRepertoires()
Dim fsO As Object
Dim oRepertoire As Object
Dim oRacine As Object
Dim oSousRep As Object
' Vérifier si le répertoire destination sur la disquette éxiste.
If Dir$("A:\MonRepertoire", vbDirectory) <> "" Then
MsgBox "Le répertoire 'MonRepertoire' existe déjà; l'effacer ou changer de disquette!"
Else
Set fsO = CreateObject("Scripting.filesystemObject")
' Créer le répertoire
Set oRepertoire = fsO.createfolder("A:\MonRepertoire")
' L'établir comme racine pour d'autres répertoires
Set oRacine = oRepertoire.subfolders
' Ajouter un sous répertoire à MonRepertoire sans mention de l'endroit !
Set oSousRep = oRacine.Add("SousRepertoire")
End If
Set fsO = Nothing
Set oRepertoire = Nothing
Set oRacine = Nothing
Set oSousRep = Nothing
End Sub
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.