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
Télécharger le zip
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?
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...
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à... ;-)
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 aa = Right$(dir1.path, 1)If a = "" ThenDossier = dir1.pathElseDossier = dir1.path & ""End IfVoila la detection est du path est finish.
(avec ton prog sa donne "c:\dossier")
avec deux devant dossier
ouais mais mon prog marche kan meme, meme si il y a un "" de trop mais merci pour avoir réparer le default :)
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 874 860 membres 72 nouveaux aujourd'hui 16 153 membres club