Exemple commande mkdir

Description

Suite a la question de milo2009 sur le forum de VbFrance, j'ai decidé d'ecrire un code d'exemple...

Source / Exemple :


Private Sub Command1_Click()
 ' Variable pour le dossier à créer
 Dossier = Dir1.Path & "\" & Text1.Text
 
 'Cré le dossier
 MkDir Dossier
 
 'Indique que le dossier a bien été créé
 MsgBox "Le dossier a été créé avec succès."
End Sub

Private Sub Drive1_Change()
 Dir1.Path = Drive1.Drive ' Affiche le contenue du lecteur selectionné
End Sub

Conclusion :


code qui n'a rien d'exeptionnel, mais qui peut servir aux debutants...

Codes Sources

A voir également

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.