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

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 12 03 09:21:55

ADOBE MAX à MILAN => JOUR -1 par pegase31

SQL SERVER : LE FUTUR DES MOTEURS DE RECHERCHE CHEZ MICROSOFT par christian

TOFINO : LE PLUGIN FLEX POUR VISUAL STUDIO par Nix

FLEX INTéGRé DANS VISUAL STUDIO ! par Nix

SQL SERVER 2008 : ENFIN UN DOCUMENT COMPLET SUR LES MISES à JOUR DE SQL SERVER par christian

RéCUPéRER LES DONNéES D'UNE AUTRE FORM par beet2che

RE : PROBLèME D'ADDITION DE COLONNE par mythiac

RE : ENREGISTRER SOUS par whitelegend

RE : ENREGISTRER SOUS par Lameche15

+ de logiciels à télécharger

1 302 109 membres
65 nouveaux aujourd'hui
14 554 membres club

Trouver une ressource

Trouvez une ressource parmi 39 077 codes, 1 208 460 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 636 / 56 850

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

POINT ET VIRGULE EN VB6 par APAT

PROGRAMME DE BASE VELLEMAN K8000 (VB 2005 EXPRESS EDITION) par julien76150

AMORTISSEMENT D'EMPRUNTS par cmarcotte

DES LETTRES ET PAS DE CHIFFRES ENCORE! par mikachu

CODYXSEARCH - INTÉGREZ LE MOTEUR CODYX À VOTRE IDE POUR CHER... par PCPT

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.