Lister des fichiers dans un répertoire et changer leur extension
Résolu
Bleuclaire
Messages postés
2
Date d'inscription
mardi 28 septembre 2004
Statut
Membre
Dernière intervention
29 septembre 2004
-
28 sept. 2004 à 16:02
Bleuclaire Messages postés 2 Date d'inscription mardi 28 septembre 2004 Statut Membre Dernière intervention 29 septembre 2004 - 29 sept. 2004 à 15:57
Bleuclaire Messages postés 2 Date d'inscription mardi 28 septembre 2004 Statut Membre Dernière intervention 29 septembre 2004 - 29 sept. 2004 à 15:57
A voir également:
- Lister des fichiers dans un répertoire et changer leur extension
- Repertoire des installations ✓ - Forum C# / .NET
- Extension mozilla - Conseils pratiques -Javascript
- Extension .net - Forum C# / .NET
- Extension .tr - Forum C / C++ / C++.NET
- Vscode rechercher dans tous les fichiers ✓ - Forum Visual Basic 6
2 réponses
NicoSoftt
Messages postés
106
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
28 octobre 2005
28 sept. 2004 à 17:50
28 sept. 2004 à 17:50
Salut
Coila une function pour changer une extension :
'NouvExtens -> exemple : "XLS" (sans le .)
Private Function ChangeExtens(Fichier As String, NouvExtens As String)
For i = 1 To Len(Fichier) - 1
If Mid(Fichier, Len(Fichier) - i, 1) = "." Then
Name Fichier As Left$(Fichier, Len(Fichier) - i) & NouvExtens
Exit Function
End If
Next i
Name Fichier As Fichier & NouvExtens
End Function
Tu veux lister des fichiers dans un répertoire OU lister les fichiers d'un répertoire ?
Voila
N$
Coila une function pour changer une extension :
'NouvExtens -> exemple : "XLS" (sans le .)
Private Function ChangeExtens(Fichier As String, NouvExtens As String)
For i = 1 To Len(Fichier) - 1
If Mid(Fichier, Len(Fichier) - i, 1) = "." Then
Name Fichier As Left$(Fichier, Len(Fichier) - i) & NouvExtens
Exit Function
End If
Next i
Name Fichier As Fichier & NouvExtens
End Function
Tu veux lister des fichiers dans un répertoire OU lister les fichiers d'un répertoire ?
Voila
N$
Bleuclaire
Messages postés
2
Date d'inscription
mardi 28 septembre 2004
Statut
Membre
Dernière intervention
29 septembre 2004
29 sept. 2004 à 15:57
29 sept. 2004 à 15:57
Merci bien Mon probleme est résolu
