como bien dice el titulo no se como hacer una lista de los archivos de 2 ficheros.
He abierto las dos carpetas con folderbrowserDialog y al pasar el nombre de los archivos a un excel, me escribe la ruta entera de los archivo...
Como podría hacer que solo escribiera el nombre del archivo?
Código
Sub leer_pdf_y_crear_excel(path, ficheroscarpeta, path2, ficheroscarpeta2, openfolderdialog, openfolderdialog2) ' Dim fichero Dim xlapp Dim xllibro Dim xlhoja Dim i As Integer = 1 'Dim fichero Dim archivo As String = "*.pdf" Dim listbox1 As ListBox xlapp = CreateObject("Excel.Application") xllibro = xlapp.workbooks.add xlhoja = xllibro.worksheets("Hoja1") xlapp.visible = True ficheroscarpeta = System.IO.Directory.GetFiles(path) ficheroscarpeta2 = System.IO.Directory.GetFiles(path2) For Each fichero As String In ficheroscarpeta listbox1. = fichero xlhoja.cells(i, 1) = fichero i += 1 Next For Each fichero As String In ficheroscarpeta2 xlhoja.cells(i, 1) = fichero i += 1 Next End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim OpenFolderDialog As New FolderBrowserDialog Dim path As String Dim ficheroscarpeta() As String Dim OpenFolderDialog2 As New FolderBrowserDialog Dim path2 As String Dim ficheroscarpeta2() As String OpenFolderDialog.SelectedPath = "C:\Users\pepe\Desktop" OpenFolderDialog2.SelectedPath = "C:\Users\pepe\Desktop" If OpenFolderDialog.ShowDialog() = DialogResult.OK Then path = OpenFolderDialog.SelectedPath End If If OpenFolderDialog2.ShowDialog() = DialogResult.OK Then path2 = OpenFolderDialog2.SelectedPath leer_pdf_y_crear_excel(path, ficheroscarpeta, path2, ficheroscarpeta2, OpenFolderDialog, OpenFolderDialog2) End If End Sub End Class