Function nomdefichier(dossiersource As String) As String Dim fichier As String Dim car0 As String My.Computer.FileSystem.GetFileInfo(dossiersource) For Each fichier In IO.Directory.GetFiles(dossiersource) My.Computer.FileSystem.WriteAllText("C:\Users\win8\Desktop\nomfichier.txt", fichier, True) Next car0 = My.Computer.FileSystem.ReadAllText("C:\Users\win8\Desktop\nomfichier.txt") My.Computer.FileSystem.DeleteFile("C:\Users\win8\Desktop\nomfichier.txt") car0 = car0.Replace(dossiersource, " ") car0 = car0.Replace("\", "") Dim fichiers() As String = car0.Split(" ") nomdefichier = car0.Substring(1) My.Computer.FileSystem.WriteAllText("C:\Users\win8\Desktop\nomfichier.txt", nomdefichier, True) End Function
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionImports System.IO Public Class Form1 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Try ' Only get files that begin with the letter "c." Dim dirs As String() = Directory.GetFiles("C:\Users\Daniel\Documents\My eBooks\", "*.pdf")'adapter le chemin du dossier MsgBox("Nombre de fichiers PDF: " & CType(dirs.Length, MsgBoxStyle)) Dim dir As String For Each dir In dirs ListBox1.Items.Add(dir) Next Catch MsgBox("The process failed: {0}", CType(e.ToString(), MsgBoxStyle)) End Try End Sub End Class
For Each dir In dirs ListBox1.Items.Add(dir) Next
ListBox1.DataSource = dirs
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim dirs As String() = IO.Directory.GetFiles("C:\Users\win8\Desktop", "*.pdf") Dim dir As String For Each dir In dirs ListBox1.Items.Add(dir) Next For a As Byte = 0 To dirs.Length - 1 My.Computer.FileSystem.CopyFile(dirs(a),????) Next End Sub