RE:nombre de fichero en FileListBox
Muchas gracias ante todo por vuestra ayuda, llevo poco tiempo en este mundo y a lo mejor son preguntas tontas para vosotros pero a mi me crean un poco de alteracion jejejejeeje
El caso es que ya consigo recojer el nombre de los ficheros para comprobar su tamaño, me reorro el ListBox y veo que tiene exactamente los ficheros de la carpeta que tengo que recorrer, pero a la hora de calcular su longitud con el FileLen (al pasar por esa instruccion) me esta dando un error. El error es el 53, su descripcion es que NO encuentra el archivo, no lo entiendo porque si estoy en el ListBox con el archivo en cuestion y con la ruta exacta no se porque la instraccion FileLen no lo encuentra.
Aqui os dejo el codigo:
Option Explicit
'*
Private Sub Dir1_Change()
'*
Dim FSO1 As Scripting.FileSystemObject
Dim i As Integer
Dim longitud As Integer
'*
'*
File1.Path = Dir1.Path
Set FSO1 = CreateObject("Scripting.FileSystemObject")
For i = 0 To File1.ListCount - 1
longitud = FileLen(File1.List(i))
MsgBox "el nombre del fichero actual es " & File1.List(i) & " y la longitud es " & longitud
If longitud = 0 Then
FSO1.DeleteFile Dir1.Path & "\" & File1.List(i), True
End If
Next
'*
End Sub
Private Sub Form_Load()
ProcLoad Me
Me.Show
Dir1.Path = "c:\Miguel\Incremental\Clientes"
End Sub