Discussion :

[eriviere]

Bonjour,
Ce problème a été soulevé plusieurs fois mais je n'arrive pas à faire tourner les solutions proposées :
Je voudrais créer un nouveau répertoire à partir d'un programme fortran 77 tournant sous windows 7 (est-ce que cela a de l'importance ?).
Il semble que le plus simple soit : call system ('mkdir '//nom_rep).
Le problème est qu'aucun répertoire est créé alors que la fonction system fonctionne à priori. Je l'ai essayée avec notepad.exe et même help qui semble être la seule commande dos qui marche.
Quelqu'un aurait-il une solution ?
Merci

[Marlan]

Salut,

Effectivement, la seule façon à ma connaissance pour pouvoir créer un répertoire est l'utilisation d'une commande 'call system'. Cela étant, as tu bien spécifié toute l'arborescence du répertoire lors de sa création? [le chemin dans lequel se trouve le répertoire]

Qui plus est, je te conseillerai d'employer plutôt la syntaxe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

call system('mkdir '//trim(adjustl(rep)))

Qui retirera les caractères en trop de ta variable et t'évitera un nom de dossier à 250 blancs.

Bonne journée,

Marlan

[eriviere]

Merci pour ce nouvelle option.
J'avais déjà essayé d'ajouter trim mais pas adjustl, mais ça ne marche pas mieux. Peut-être fais-je une erreur dans l'écriture du chemin.
Repiqué à droite et à gauche, j'arrive maintenant à ça ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
        program Test
        implicit none
        character(20) folder, path, makedirectory
!
        path = 'C:\'
        folder = 'Fortran'
        makedirectory = 'MKDIR ' // trim(adjustl(path)) // trim(adjustl(folder))
        print*, makedirectory
        call system(makedirectory)
 
!
         end

Mais ce n'est pas très efficace !

[bobbyboy]

Bonjour,

Le programme que tu as posté devrait marcher. C'est peut-être un problème de droit d'écriture ?

[eriviere]

Ayant deux compilateurs fortran absoft (8 et 11) j'ai testé pour les deux, sous windows7 et XP ... ça ne marche pas plus, même en tant qu'admin.
(par contre, avec l'absoft 8 même l'appel de la commande HELP ne marche pas,
alors que ça marche avec l'absoft 11 ...)

Sauf idée géniale, je crois que je vais me passer de la création d'un nouveau répertoire ...

[Marlan]

On ne sait jamais mais es tu sûr de ton arborescence? Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rep='C:\Users\Mon_Compte\...'

?

[Azuria]

Pour ceux dont ca intérresse...
il suffit de mettre 'MKDIR ' en minuscule...

Merci pour ce nouvelle option.
J'avais déjà essayé d'ajouter trim mais pas adjustl, mais ça ne marche pas mieux. Peut-être fais-je une erreur dans l'écriture du chemin.
Repiqué à droite et à gauche, j'arrive maintenant à ça ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
        program Test
        implicit none
        character(20) folder, path, makedirectory
!
        path = 'C:\'
        folder = 'Fortran'
        makedirectory = 'MKDIR ' // trim(adjustl(path)) // trim(adjustl(folder))
        print*, makedirectory
        call system(makedirectory)
 
!
         end

Mais ce n'est pas très efficace !