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
Imports 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
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.