Creer un sous repertoire avec fso

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 617 fois - Téléchargée 48 fois

Contenu du snippet

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

A voir également

Ajouter un commentaire

Commentaire

bravo, ca marche tres bien

essaie de mettre juste un C: au lieu d'une A:
les gens ne font pas souvent attention au lecteur de disquette !!

seedorf

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.