MasQueUnIntento
06 de Julio del 2011

Hola lista tengo un problema y es que quiero guardar puntero al ultimo archivo leido por Dir.. me refiero a esto:

Tengo un bucle :

sArchivo = Dir(sFullPath2DirCliente)
iCountPictureOnFirstLoad = 0

Do While sArchivo vbNullString
If nII < 12 Then
If mbCargarImagen(sImageRootDir & sDirCliente & sArchivo, nII) Then
imgSnapshot(nII).Tag = sImageRootDir & sDirCliente & sArchivo
Me.LblFechaFoto(nII).Caption = FileSystem.FileDateTime(imgSnapshot(nII).Tag)
iCountPictureOnFirstLoad = iCountPictureOnFirstLoad + 1 ' By Almeda
Else
imgSnapshot(nII).Tag = vbNullString
Me.LblFechaFoto(nII).Caption = ""
End If
Else
Exit Do
End If
sArchivo = Dir$
nII = nII + 1
Loop

El problema es que dentro de la funcion mbCargarImagen existe una sentencia que crea archivos temporales, por lo tanto cuando se ejecuta el sArchivo = Dir$ ya se perdió el puntero al ultimo archivo leido y me sale el error Invalid procedure call or argument...

Alguien sabe como se soluciona esto????


GRACIAS!!!

Manuel Alfredo Vallejos
17 de Agosto del 2011

Prueba crear los temporales en una carpeta distinta a la que estás recoriendo.

Sino busca ejemplos del uso de estas APIs

FindFirstFile
FindNextFile

Saludos