La solution idéale pour se former à l'outil informatique
		Accueil - Plan d'études - Les cours - Les tarifs - Inscriptions - Contactez nous - Lisez moi
		Exercices sous VB
		Les sources sous VB N°  Sce1_5 :   Catégorie : Fichiers Date : 02/01/2003 Auteur : GilMir Niveau : 1 Note moyenne :   Capture : Non Zip : Nombre de sources déjà publiés : [      ] Contacter l'auteur de cette source : webmestre@langlade.org Visiter le site de l'auteur : http://www.langlade.org Titre de la source : CREER UN REPERTOIRE                                     Descriptif Succint de la source Ce code vous permet de créer un répertoire dans vos programmes                                             Libellé de la source Début de la procédure 'Contrôler si répertoire existe? Dim MyPath As String 'Définition des variables Dim MyName As String Dim RepertName As String ' RepertName$ = Text1.Text MyPath = "C:\windows\" & RepertName$ 'On initialise la variable If Text1.Text = "" Then Title$ = "Création d'un répertoire" msg = "Veuillez saisir le nom du répertoire à créer!" MsgBox msg, 64, Title$ Text1.SetFocus Else 'Instructions End If 'Si l' utilisateur n' a pas saisie un nom... alors sortie du programme If Text1.Text = "" Then Exit Sub 'Puisqu'il a saisi un nom, nous traitons sa demande! If (MyName = Dir(MyPath, vbDirectory)) = vbEmpty Then 'On teste l' existance du répertoire MsgBox "Le répertoire " & Chr(34) & MyPath & Chr(34) & " existe bien!" 'Si le répertoire saisie existe... alors sortons.... Exit Sub Else MsgBox "Le répertoire " & Chr(34) & MyPath & Chr(34) & " n 'existe pas!", vbExclamation 'Alors...créons le répertoire RepertName$ = Text1.Text MkDir "c:\windows\" & RepertName$ End If 'Ouverture d' une fenêtre de dialogue MsgBox "Le répertoire " & RepertName$ & " vient d' être créé!" Fin de la procédure Vos commentaires sur cette source :                                           Les commentaires des internautes sur cette source : - Poster un message dans le forum - Ajouter une source                                                            Modifier cette fiche
		Accueil - Plan d'études - Les cours - Les tarifs - Inscriptions - Contactez nous - Lisez moi
		Langlade Informatique © 2000 Tous droits réservés