Discussion :

[Rokitdev]

Bonjour,

Je souhaite à partir d'une fenêtre créer simplement un dossier (ça je sais faire)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
// Déclaration des variables
RépertoireACréer est une chaîne
ResCréation est un booléen
// Sélection du répertoire à créer
RépertoireACréer = SAI_Rep
// Création du répertoire
ResCréation = fRepCrée(RépertoireACréer+"\"+SAI_NomDossier)
// Affichage du message d'erreur si la création n'a pas été effectuée
SI ResCréation = Faux ALORS
	Erreur(ErreurInfo(errMessage))
SINON
	Info("Le dossier "+SAI_NomDossier+" et le(s) sous-dossier(s)a été(on été) créé dans "+SAI_Rep+".")
FIN

Ce que ne sait pas faire :

Créer un dossier avec un ou plusieurs sous-dossiers suivant un choix prédéfini avec un champ interrupteur.
Créer un ou plusieurs sous-dossiers suivant un choix prédéfini avec un champ interrupteur.

Ci-joint une capture de ma fenêtre :

Merci de votre aide.

[Xipotera]

Bonjour,

En supposant que les champs saisie soient du style NomChamp1,NomChamp2,...

Je ferais une boucle de parcours de i=1 _A_ 6

ensuite je teste si le champ est vide et je reprends le code de création du dossier qui serait du type :

Code :

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

ResCréation = fRepCrée(RépertoireACréer+"\"+SAI_NomDossier+"\"+{"NomChamp"+i,indchamp})

Voila mon idée à toi de la mettre en oeuvre

[Rokitdev]

J'ai essayé de faire comme indiqué ci-dessus sans succès me renvoi une fenêtre d'erreur vide
Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
// Déclaration des variables
RépertoireACréer est une chaîne
ResCréation est un booléen
NomChamp est une chaîne
 
// Sélection du répertoire à créer
RépertoireACréer = SAI_Rep
 
// Création du répertoire et sous-répertoire
POUR i=1 _A_ 6
	NomChamp = SansEspace(NomChamp)
	SI NomChamp <> "" ALORS
	ResCréation = fRepCrée(RépertoireACréer+"\"+SAI_NomDossier+"\"+{"NomChamp"+i,indChamp})
	FIN
	FIN
 
// Affichage du message d'erreur si la création n'a pas été effectuée
SI ResCréation = Faux ALORS
	Erreur(ErreurInfo(errMessage))
SINON
	Info("Le dossier "+SAI_NomDossier+" et le(s) sous-dossier(s)a été(on été) créé dans "+SAI_Rep+".")
FIN

mon champ de création de répertoire se nomme SAI_NomDossier
et mes champs sous-répertoires SAI_SDossier1,SAI_SDossier2 ...

Merci de votre aide.

[Xipotera]

dans mon exemple NomChamp correspond au nom de tes champs de saisie SAI_SDossier...
donc il faut remplacer NomChamp par {"SAI_SDossier"+i,indchamp}

pour plus d'info regarde du coté des indirections.

[Rokitdev]

Voici le code fonctionnel après correction (au cas ou quelqu'un soit dans la même recherche que moi)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
// Déclaration des variables
RépertoireACréer est une chaîne
ResCréation est un booléen
SAI_SDossier est une chaîne
SAI_SDossier = "SAI_SDossier1"
 
// Sélection du répertoire à créer
RépertoireACréer = SAI_Rep
 
// Création du répertoire et sous-répertoire
POUR i=1 _A_ 6
	SAI_SDossier = SansEspace(SAI_SDossier)
	SI SAI_SDossier <> "" ALORS
	ResCréation = fRepCrée(RépertoireACréer+"\"+SAI_NomDossier+"\"+{"SAI_SDossier"+i,indChamp})
	FIN
	FIN
 
// Affichage du message d'erreur si la création n'a pas été effectuée
SI ResCréation = Faux ALORS
	Erreur(ErreurInfo(errMessage))
SINON
	Info("Le dossier "+SAI_NomDossier+" et le(s) sous-dossier(s)a été(on été) créé dans "+SAI_Rep+".")
FIN

Xipotera

[Xipotera]

De rien, par contre les lignes de code suivantes sont inutiles

Code :

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

1
2
SAI_SDossier est une chaîne
SAI_SDossier = "SAI_SDossier1"