grattoir nom simple du dossier

Question

Possible en double:
Read multiple text files in a folder

J'ai un dossier contenant des fichiers, par exemple: 123.psd 12345.psd 123456.psd etc , je veux gratter tous les noms à l'intérieur du dossier dans un fichier TXT comment puis-je faire cela? Merci!

Answer 1

Vous pouvez utiliser Path.GetFileNameWithoutExtension:

Dim filesNames = From path In IO.Directory.EnumerateFiles("C:\Temp") 
       Select IO.Path.GetFileNameWithoutExtension(path) 
IO.File.WriteAllLines("C:\Filenames.txt", filesNames) 

Edit: Voici une version qui fonctionne aussi dans .NET 3.5:

Dim filesNames = From path In IO.Directory.GetFileSystemEntries("C:\Temp") 
     Select IO.Path.GetFileNameWithoutExtension(path) 
IO.File.WriteAllLines("C:\Filenames.txt", filesNames.ToArray) 

et cela fonctionne même dans .NET 2:

Dim filesNames = IO.Directory.GetFileSystemEntries("C:\Temp") 
Dim fileNamesWithoutExtension(filesNames.Length - 1) As String 
For i = 0 To filesNames.Length - 1 
    fileNamesWithoutExtension(i) = IO.Path.GetFileNameWithoutExtension(filesNames(i)) 
Next 
IO.File.WriteAllLines("C:\Filenames.txt", fileNamesWithoutExtension)