Jump to content

Criar Directorias em freepascal com a consola linux


celiacon
 Share

Recommended Posts

PROGRAM criadir(input, output);
VAR nomdir:STRING;
   dir:STRING;
   usr:STRING;
BEGIN
   WRITE('Escreva o nome do utilizador  ou root ->');
   READLN(usr);
   WRITE('Escreva o nome da directoria a criar ->');
   READLN(nomdir);
   WRITE('[',usr,'@localhost:~]$ mkdir ',nomdir);
   READLN(dir);
   WRITE ('[',usr,'@localhost:~]$ ls -l');
   READLN;
END.
Link to comment
Share on other sites

A dúvida é que embora o código compile com sucesso, não faz nada!

Isto é de facto não consigo criar directorias.... mais para teremos de aceder à shell e solicitar a informação de quem está logado para que funcione?

Como posso proceder...

Link to comment
Share on other sites

Estás a confundir as coisas.

O que tu estás a fazer nesse programa é simplesmente mostrar texto. Para criares directorias tens que executar programas que criam directorias. Isto é uma dúvida básica que me diz que precisas de investir bastante em aprender a programar, antes de mais nada.. conhecer a linguagem, etc.

Quanto à tua dúvida:

ret := fpSystem('mkdir ' + nomedir);

assumindo que nomedir é uma string com o nome da directoria a criar, e ret um longint.

A função fpSystem devolve um longint com o valor de retorno do comando executado, para poderes saber se funcionou ou não (0 se funcionou, outro valor se tiver dado erro, penso eu).

PS.: O meu pascal está enferrujado, e nunca cheguei a usar freepascal decentemente, por isso se alguém experiente vir isto, por favor corrija 🙂

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.