begin process at 2012 02 16 12:44:07
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Divers

 > EXEMPLE COMMANDE MKDIR

EXEMPLE COMMANDE MKDIR


 Information sur la source

Note :
4 / 10 - par 3 personnes
4,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Divers Niveau :Débutant Date de création :08/07/2003 Date de mise à jour :09/07/2003 23:00:09 Vu / téléchargé :7 717 / 56 880

Auteur : LordBob

Ecrire un message privé
Site perso
Commentaire sur cette source (7)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Suite a la question de milo2009 sur le forum de VbFrance, j'ai decidé d'ecrire un code d'exemple...  

Source

  • 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
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...  

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture VISUALISATEUR D'IMAGE
Source avec Zip EXPLORATEUR DE FICHIER

 Sources de la même categorie

Source avec Zip TEXTBOX EN NUMÉRIQUE par 320C
Source avec Zip DÉCIMAL TO HEXDECIMAL par loulou27200
SOUS-TITRES : INCRÉMENTATION DE TOUTES LES CHAÎNES DE CARACT... par ALMIRA
Source avec Zip Source avec une capture EVALUER UN NOMBRE D'OBJETS AVEC UNE BALANCE ET DEUX ÉCHANTIL... par lexsty
Source avec Zip Source avec une capture PETIT LOGICIEL DE DEVIS SANS BD par lololilizozo

Commentaires et avis

Commentaire de bob3000 le 09/07/2003 03:46:03

c pas super mais puisque quil y a des gens ki en on besoin, alors ca peut etre utile :)

lol, tu regardais Fast And The Furious?

Commentaire de LordBob le 09/07/2003 10:12:50

bah en fait c'est à cause d'une question sur le forum que j'ai fait cette source, je me suis dit si une personne en a besion, bah pourquoi pas d'autre, j'ai donc décidé de l'envoyer sur le réseau... mais bon pour moi cette source n'à aucun intérêt, j'ai fait ca en 1 minutes, rien d'exceptionel !!! mais si ca peut aider quelques personnes, alors tant mieux...

Commentaire de sebleboss2002 le 09/07/2003 10:25:46

Euh... C'est pas que ce soit gênant de voir ton E mule tourner en fond, mais si des men in black trainaient par là... ;-)

Commentaire de legion91 le 09/07/2003 10:58:59

essai de cree un dossier dans c:, le path indiquer par dir1 est c: donc avec ton prog(puisk tu ajoute "") sa donne c:\dossier on a jamais vu \ pour un emplacement, Donc on va detecter le path(si on  peut dire)

Dim a
a = Right$(dir1.path, 1)
If a = "" Then
Dossier = dir1.path
Else
Dossier = dir1.path & ""
End If

Voila la detection est du path est finish.

Commentaire de legion91 le 09/07/2003 11:00:43

(avec ton prog sa donne "c:\dossier")

Commentaire de legion91 le 09/07/2003 11:01:38

avec deux  devant dossier

Commentaire de LordBob le 09/07/2003 13:32:56

ouais mais mon prog marche kan meme, meme si il y a un "" de trop mais merci pour avoir réparer le default :)

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,640 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales