Ligne de commande pour ouvrir un dossier

Slt tout le monde !!
je commence un peu le développement des petits trucs et je voudrais savoir si quelqu'un' un pouvait me renseigner:
en fait je cherche ouvrir un dossier apres avoir tapé un code ( une variable) et... je trouve pas ! quelqu' un pourrait m' aider :arf::mur:
merci d' avance :D

Ps : un screen de mon prog...

Bonjour et bienvenue
J'avoue ne pas tres comprendre ce que tu veux dire :?
OUvrir un dossier pourquoi faire?

Bien le bonjour et merci. Pour le programme, en fait quand tu tape le code, sa marque "Bienvenue ..." et je voudrais que sa ouvre un dossier un peu comme quand on ouvre la session tu tombe sur le bureau et bien la je voudrais tomber dans un dossier... voila :p

Xoe,

Je ne comprends pas non plus.

Pour ton code, fais un copier/coller sur le forum plutôt que poster une image (on a assez récemment parlé de ce problème [faux problème pour moi, mais...] sur ce forum). :)

Je ne connais pas de fonction qui permette d'ouvrir un répertoire.
Mais tu peux utiliser la fonction exec (de l'unité DOS) afin de te placer dans ledit répertoire.

Code:

---

exec('\dos\command.com','/C cd mon_répertoire');

---

Ensuite, libre à toi d'afficher ou non le contenu dudit répertoire.
Mais ça c'est autre chose.

Désolé pour le screen mais quand je fais copier et ben je peux pas coller ou sa me colle le truc que j' ai copié avant ( de la barre recherche google ou autre chose)... et pareil dans l' autre sens... :( :evilred: et pour le prog , en fait quand sa me dit "tapez votre code", je tape mon code et la je voudrais sa m' ouvre le fichier personnel de la personne a qui appartient le code ou mot de passe si vous préférez en gros c'est sa. voila voila...

Bonjour et bienvenu,
D'après ce que j'ai compris, suivant le code entré tu affichera les fichiers personnels de la personne ? si c'est cela tu peux exécuter tout simplement une petite commande dir chemindurep et le tour est joué ;)

Code:

---

1 2	exec('\dos\command.com','/C dir chemindurépertoire');

---

sinon tu peux aussi (mais c'est un peu long) chercher d'abord tes fichiers avec la fonction findfirst ensuite les afficher :aie:
Cordialement,

Slt! tu dis :

Code:

---

1 2	exec('\dos\command.com','/C dir chemindurépertoire');

---

mais il me mets error 3 : unknown identifier 8O ... je sais pas quoi faire !!

Bonsoir,
ça doit être surement une erreur due à une apostrophe '
je corrige juste un petit truc

Code:

---

1 2	exec('c:\windows\system32\cmd.exe','/C dir chemindurépertoire');

---

Il faut mettre le chemin complet,
sinon pour avoir un code qui marche sur tous les windows tu travaille avec la variable d'environnement COMSPEC: pour la récupérer il existe la fonction GetEnv
et ça donne ça

Code:

---

1 2	exec(GetEnv('COMSPEC'),'/C dir chemindurépertoire');

---

;)
Cordialement,

Sa ne marche toujours pas 8O:evilred: peut-etre que turbo pascal n' est pas capable d' exécuter cette action... je vais essayer avec un autre compilateur... je vous tiens au courant

ah j'ai oublier de te le dire il faut ajouter l'unité CRT et Dos.
pour le compilateur essai avec freepascal.
Cordialement,

:arf::arf::arf::arf::arf: J' ai télécharge Turbo Pascal for windows 1.5 et recopie mot a mot mon programme qui est sur turbo pascal 7.0 et la :

Code:

---

Runtime error 105 at 0001:0032.

---

pourtant sur TP 7.0 il fonctionne très bien :help::marteau::piou:

PS:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Program maxx; var code : integer; BEGIN Write('Entrez votre code:'); readLn(code); Case code of 2548:WriteLn('Bienvenue personnage 0'); 5155:WriteLn('Bienvenue personnage 1'); end; readLn; END.

---

Essai d'ajouter au début de ton programme

Code:

---

1 2	Reset(output);

---

Sinon et c'est ce que je te conseil de faire c'est de compiler avec FreePascal.
Cordialement,

Je le mets ou dans le prog parce-que il me le surligne en premiere place, en deuxieme place et en troisieme place !!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

!!ici!! Program maxx; !!ici!! var code : integer;!! et ici!! BEGIN Write('Entrez votre code:'); readLn(code); Case code of 2548:WriteLn('Bienvenue personnage 0'); 5155:WriteLn('Bienvenue personnage 1'); end; readLn; END.

---

juste après le begin bien sur :)
Cordialement,

XD merci mais maintenant il cherche des poux a :

Code:

---

Write('Entrez votre code:') ;

---

:evilred: :evilred: 8O

EDIT : j' installe free pascal

je me souviens que les noms des librairies changent sous TPW par exemple CRT devient WINCRT réessaie sinon installe FreePascal.
Cordialement,