Créer un dossier sur le répertoire courantRésolu

Question

Bonjourd, 

j'aimerais cr&#233;er un dossier sur le r&#233;pertoire courant avec VB, puisque je n'ai pas r&#233;ussis &#224; le faire avec un batch

nom du Dossier "New Folder"

et il faudrait que je puisse lancer mon .exe avec un raccourci clavier (Ctrl+1)

si je suis sur C:\ et que je lance le raccourci clavier, mon R&#233;pertoire sera sur C:\
si je suis sur C:\Test\cmd\ bha mon "New Folder" sera dans le r&#233;pertoire cmd\

Je suis un peu perdu, est ce que qqn &#224; une id&#233;e 

merci

Sorlags

PCPT · Accepted Answer

salut, [VB6] Option Explicit ' Private Declare Function GetCurrentDirectory Lib "kernel32" Alias "GetCurrentDirectoryA" _ (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long ' ' Private Sub Form_Load() ' répertoire de l'exe MsgBox App.Path ' répertoire courant de windows Dim sSave As String sSave = String (255, 0) GetCurrentDirectory 255, sSave MsgBox sSave ' créé le dossier "New Folder" à la racine du C: Const sPath As String = "C:" 'à toi de mettre ce que tu veux MkDir sPath & "New Folder" MsgBox "Dossier créé. Bye", 32 Unload Me End Sub Coloration syntaxique automatique [AFCK] et pour le raccourci, il te faut une autre application qui tourne et intercepte ton raccourci pour lancer ta première application. PCPT [AFCK]

jpleroisse · Answer

Bonjour

Pour cr&#233;er ton r&#233;pertoire dans C:\  MkDir "C:\New Folder"

Dans un autre r&#233;petoire, tu les mets avant.

MkDir "C:\Mes documents\Mes Fichiers\New Folder" Tous les r&#233;pertoires doivent exister (Mes document, Mes Fichiers), sinon tu dois les cr&#233;er un &#224; un.



pour ta 2&#232;me question, je vais regarder tant&#244;t.



jpleroisse

Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

Sorlags · Answer

Bonjour
Pour cr&#233;er ton r&#233;pertoire dans C:\  MkDir "C:\New Folder"
Dans un autre r&#233;petoire, tu les mets avant.
MkDir "C:\Mes documents\Mes Fichiers\New Folder" Tous les r&#233;pertoires doivent exister (Mes document, Mes Fichiers), sinon tu dois les cr&#233;er un &#224; un.

Personnellement j'utilise md : md "C.\New Folder"

Mais ce que je recherche c'est que mon NEW FOLDER sois cr&#233;er dans le r&#233;pertoire ou je me trouve au moment ou je lance l'exe avec mon raccourci clavier

(mon .EXE se toruve [par exemple] &#224; la racine du C:\, mais si je suis dans My Documents et que je lance mon raccourci clavier, le NEW FOLDER se cr&#233;er dans ce r&#233;pertoire) 

'   cr&#233;&#233; le dossier "New Folder" &#224; la racine du C:
    Const sPath As String = "C:"  '&#224; toi de mettre ce que tu veux
    MkDir sPath & "New Folder" 
    MsgBox "Dossier cr&#233;&#233;. Bye", 32 

Merci pour ce code, mais j'ai toujours le m&#234;me probl&#232;me (emntionner jsute au dessus), c'est que la le fichier sera toujours sur C:\, et moi j'aimerais qu'il se cr&#233;er sur le r&#233;erptroie que je suis en train de visiter !! C'est &#231;a qui ma bloqu&#233; sur mon essai avec les fichiers Batch.

Sorlags · Answer

H&#233;sit&#233; pas de venir avec des solition de la version .NET, j'ai les 2 (.NET / VB6), une au boulot et une chez moi

pour DOS, le  code pour avoir fichier courant au moment du clique sur le .bat, c'est :

cmd.exe /k cd "%1"

le probl&#232;me c'est que malgr&#233; que je suis sur un autre r&#233;pertoire, le raccourci clavier "cliquera" sur le .bat qui se trouve &#224; la racine, donc pour lui la racine est le rep courant 

Sur VB, il y a u moyen d'utiliser du code DOS (si jamais la srouce du code d'audessus, c'est le prog DosHere ,aller sur google, metter ce nom , c'est le 1er lien. il va ajouter a tous les r&#233;petoire un petit bouton qui permet de lancer l'invite de commande &#224; l'endroit du dossier. Peut-&#234;tre que vous arriverais tirer qqch de ce qui se trouve dans le fichier DOSHERE.inf ... 

PS: faudrait en m&#234;me temps qu'on m'explique coment &#233;diter un post sur ces forum

PCPT · Answer

re,

tu pourrais tr&#232;s bien avoir plusieurs fen&#234;tres de l'explorateur d'ouvertes, donc tu ne peux pas r&#233;cup&#233;rer le Path visit&#233;.
au mieux &#233;ventuellement, seulement la derni&#232;re fen&#234;tre ayant le focus avant ton exe, mais qui peux tr&#232;s bien ne pas &#234;tre une fen&#234;tre d'exploration.....

le Path Windows (par cmd.exe /k cd "%1") est celui que je t'ai donn&#233; :
Private Declare Function GetCurrentDirectory Lib "kernel32" Alias "GetCurrentDirectoryA" _ 
            (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long 

'
'   r&#233;pertoire courant de windows
    Dim sSave As String 
    sSave = String(255, 0) 
    GetCurrentDirectory 255, sSave 
    MsgBox sSave

c'est pourquoi j'ai utilis&#233; une constante pour montrer l'exemple avec MkDir (et sans doute pareil pour JpLeroisse)

et comme d&#233;j&#224; indique, ton raccourci ne pourra pas &#234;tre pris en compte par ton appli puisqu'elle ne sera pas lanc&#233;e.
il te faut donc un autre exe qui r&#233;cup&#232;rera tes pressions clavier pour lancer ton exe principal pour ta combinaison choisie

ps : le probl&#232;me du forum est que lorque tu copies un texte, la typo s'y ajoute.
(probl&#232;me et en m&#234;me temps, heureusement...)
pense donc &#224; passer &#224; la ligne avant de copier le code pour r&#233;cup&#233;rer la ligne suivante avec ta typo pr&#233;c&#233;dente ;)

bon courage
PCPT   [AFCK]

Sorlags · Answer

OK, et merci pour tout.

Pour le raccourci je me d&#233;brouillerai comme je peux :p

ta r&#233;ponse est accept&#233;e

Créer un dossier sur le répertoire courant

6 réponses

Discussions similaires