error I/O 53

[[fjcg02]]

Te explico la jugada.
Es un programa simple para simples.
Una tabla de presupuestos. En una variable se indica en qué directorio se guardarán los archivos relacionados con ese presupuesto (c:\datos , h:\departamento, ....). El codigo del presupuesto indicará el directorio donde se guardan los archivos asociados a ese presupuesto ( planos, presupuestos, fotos, etc )
ejemplo
Presupuesto 0001
datos de archivos en c:\datos\0001
Presupuesto 0002
datos de archivos en c:\datos\0002
etc.
con cada registro nuevo creo el directorio correspondiente. Al acceder al registro, actualizo el directorio del filelistbox (path+\codigo ) y lo refresco. Ante un doble click sobre un fichero del filelistbox, ejecuto
ShellExecute(Application.MainForm.Handle, nil,
StrPCopy(zFileName, Fichero),
StrPCopy(zParams, ''),
StrPCopy(zDir, FPath),
SW_SHOW);
y arranca automáticamente la aplicación asociada a la extensión del fichero ( word, excel, autocad, visor de jpg's ) que tenga el sistema operativo.
Pues eso.
Un saludo

[[egostar]]

Pues te reitero la única forma de saber en que punto de tu programa se está provocando el error es haciendo un trace de la aplicación, no veo otra forma de poder ayudarte.

Saludos.