Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 07 03:49:06

[CASTLE] DU NOUVEAU CHEZ CASTLE, LA NOUVELLE VERSION DE WINDSOR ET DYNAMICPROXY EST SORTIE. par tja

MICROSOFT VOUS PERMET DE TESTER ECMASCRIPT 5 (ES3.1) par FREMYCOMPANY

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

RE : VBA EXCEL : GéNéRER UN TABLEAU VIERGE SOUS WORD par c148270

RE : COMMANDBARS par jack

RE : QUELQU'UN POURRAIT M'AIDER à TERMINER MON PROJET ? par jack

RE : COMMENT FAIRE L'IMPRESSION SUR UNE IMPRIMENTE MATRICIELLE par jack

RE : CREER UN WEBBROWSER POUR ECRAN TACTILE EN VB NET par jack

+ de logiciels à télécharger

1 465 656 membres
49 nouveaux aujourd'hui
15 048 membres club

Trouver une ressource

Trouvez une ressource parmi 40 099 codes, 1 303 411 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

EXEMPLE COMMANDE MKDIR

Information sur la source

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é: 5 968 / 56 861

Auteur : LordBob

Site perso

Ecrire un message privé

Note :

4,00 / 10

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

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

MkDir Exemple
- Form1.frm 1 908 octets
- Project1.vbp 630 octets
- Project1.vbw 50 octets

Télécharger le zip

Sources du même auteur

VISUALISATEUR D'IMAGE

EXPLORATEUR DE FICHIER

Toutes les sources de LordBob

Sources de la même categorie

VOTRE MÉTÉO VILLE AVEC GOOGLE MÉTÉO! par vbnino

VELLEMAN K8055 PROGRAMME POUR COMPRENDRE ET UTILISER LE CODE... par nono7380

PSEUDO EMULATEUR D'EXE par Frelon

POO ET UTILISATION DE QUELQUES BOITES DE DIALOGUE (SAVE ET O... par kilvanox

EXPORTER MFLEXGRID DANS DOCUMENT WORD par garoui1

Toutes les sources de la catégorie Divers

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.