Discussion :

[sandball22]

Bonjour,
j'aimerais savoir comment je peux faire pour identifier si un fichier existe dans un dossier dans le cas suivant :
tous les fichiers existants commencent pareil, seul une lettre à la fin les sépare.

Par exemple :
nom_A.txt
nom_B.txt.

j'aimerais apres avoir identifier les fichiers existant dans ce cas précis créer un fichier nom_C.txt.
etc ...

Je ne sais pas si c'est clair.

j'ai commencé avec ce bout de

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
Fichier = App.Path &  "\Fichier\nom_A.txt" 
 
        Open Fichier For Input As #1
        i% = Err
        Close #1
    On Error GoTo 0
    If i% = 0 Then  ' le fichier existe
 
        reponse = MsgBox("Un fichier existe !!" & vbCrLf & "Voulez-vous en créer un autre?", vbYesNo + vbInformation, "Information")
 
        If reponse = vbYes Then
 
 
        Else
 
 
 
    Else  ' le fichier n'existe pas
        MsgBox "Aucun fichier!!" & vbCrLf & " Vous devez créer au moins un fichier!!", vbCritical, "Information"
 
    End If
 
  End If

[DAUDET78]

faut faire un peu plus compliqué .... voilà une idée à creuser

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
 
 
For N%=asc("A") to asc("Z")
   Fichier$ = App.Path & "\Fichier\nom_" & Chr$(N%) &".txt"
   On error resume next
       J# = FileLen(Fichier$)
       i% = Err
   On Error GoTo 0
 
   If i% > 0 Then ' le fichier n'existe pas
' .... gestion de la création du nouveau fichier
      exit for
   End If
 
Next N%

[ThierryAIM]

http://vb.developpez.com/faq/?page=F...fichier_existe

[sandball22]

Merci cela fonctionne bien

[sandball22]

Pourquoi lorsque je fais cela, je n'ai pas le meme comportement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 fichier_scenario_court = App.Path & "\FichierScenario\ScenariosCourts\" & "tata.txt"
fichier_scenario_long = App.Path & "\FichierScenario\ScenariosLongs\" & "tata.txt"
 
        Open fichier_scenario_court For Input As #1
        I% = Err
        Close #1
 
        Open fichier_scenario_long For Input As #2
        K% = Err
        Close #2

le fichier tata.txt est bien présent dans fichier_scenario_long; mais lorsuqe je fais le 2ème open , K vaut systématiquement different de 0 a svoir le fichier n'existe pas alors que c'est faux!! par contre si je change K en I cela fonctionne

[ThierryAIM]

Parce qu'il manque Err.Clear entre les 2

Mais je t'ai donné un lien au dessus pour tester l'existence d'un fichier de façon plus académique

Je répète : tester l'existence d'un fichier et clique dessus cette fois