Création de dossier

Résolu
quentin22breizh - 4 oct. 2014 à 12:09
 quentin22breizh - 4 oct. 2014 à 16:31
Bonjour à tous,

Je viens vers vous pour une petite question. Je souhaite créer un dossier incrémenter de version à chaque fois que j'exécute mon code. Je sais tester si le dossier existe et le créer se ce n'est pas le cas mais je parviens pas à créer ma boucle "FOR".

Voici mon bout de code:
For index_num_version = 1 To 50
                If System.IO.Directory.Exists(Dossier_fichier & "Fichiers unity_V" & index_num_version) = False Then
                    System.IO.Directory.CreateDirectory(Dossier_fichier & "Fichiers unity_V" & index_num_version)
                End If
            Next


Merci d'avance de votre aide

2 réponses

CGSI3
Messages postés
416
Date d'inscription
vendredi 22 février 2008
Statut
Membre
Dernière intervention
7 janvier 2018
1
Modifié par CGSI3 le 4/10/2014 à 12:54
Bonjour Quentin,

Voici quelques corrections

       
Dim Dossier_fichier As String = "c:\tokill\ "  'Change le répertoire et efface l'espace en dernier je l'ai mis car sinon ca bug 
For index_num_version As Integer = 1 To 50
   If System.IO.Directory.Exists(Dossier_fichier & "Fichiers unity_V" & index_num_version.ToString) = False Then
      System.IO.Directory.CreateDirectory(Dossier_fichier & "Fichiers unity_V" & index_num_version.ToString)
   End If
Next


--
0
quentin22breizh
4 oct. 2014 à 16:31
Probleme résolu.

Pour ceux que ça pourrait intéresser, voici le code complet et fonctionnel:

For index_num_version = 1 To 10
If System.IO.Directory.Exists(Dossier_fichier & "Fichiers unity_V" & index_num_version.ToString) = False Then
System.IO.Directory.CreateDirectory(Dossier_fichier & "Fichiers unity_V" & index_num_version.ToString)
Exit For
End If
Next
nom_dossier_unity = "Fichiers unity_V" & index_num_version.ToString
0