Error al abrir archivo bdf
Publicado por Juan (2 intervenciones) el 20/06/2014 23:58:27
No se mucho de clipper, recién estoy aprendiendo, descompile un programa antiguo con Valkirie y lo compile con Harbour, se compila bien pero al ejecutar da error en la funcion NET_USE y no lo encuentro
Este es el codigo
function NET_USE
cuando lo llamado con
net_use("./ACTUALIZ.DBF", .F., 5) *Con este funciona bien
net_use("./HELP.DBF", .F., 5) *Pero con este falla
no entiendo por que uno funciona y el otro no
de ante mano muchas gracias por su ayuda
Este es el codigo
function NET_USE
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
function NET_USE
parameters file, ex_use, wait, calias
if (!file(file))
colorto(4)
draw_box(14, 20, 16, 70, .F.)
@ 15, 25 say "Error: El archivo " + file + " no existe"
@ 17, 25 say "Cerrando programa"quit
*Este codigo del if lo agrege yo para asegurarme que no fallaba al no encontrar el archivoendif
private forever
if ("{" $ file .AND. !(ISCHARACTER(calias)))
calias:= strtran(file, "{")
calias:= strtran(calias, "")
endif
calias:= iif(!(ISCHARACTER(calias)), Nil, calias)
forever:= wait = 0
do while (forever .OR. wait > 0)
if (ex_use)
*Aqui es donde fallause (file) alias (calias) exclusive
else
*Aqui es donde fallause (file) alias (calias) shared
endif
if (!neterr())
return .T.
endif
InKey(1)
wait:= wait - 1
enddo
return .Fcuando lo llamado con
net_use("./ACTUALIZ.DBF", .F., 5) *Con este funciona bien
net_use("./HELP.DBF", .F., 5) *Pero con este falla
no entiendo por que uno funciona y el otro no
de ante mano muchas gracias por su ayuda
- archivos.zip(2,1 KB)
Valora esta pregunta
0