Hello,
I´ve a dos-program and I`m in full size mode.
Under Dos 6.22 there are no errors.
Under win98 following works sometimes and sometimes not:
- shell "pkxarc a:test ewsum.dat"
- shell "copy "a:\kasarc.arc c:\refo\kasarc.arc"
- sometimes files will not appear onto Disk; but the disk is ok
Is it possible, that i use too much memory ??? ( no error code there)
Any other Idea´s ?
( The code is too big to get it to the forum )
so I send only a little
[CODE]
'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[Verkaufsdaten auf Disk_]ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
if zahl="6060" or zahl="6666" then
lw$="a:"
diskfrei 'check diskplace
do
'data there
if vkdaten_nicht_da? then exit loop
'diskspace ok
if zuwenig_diskettenplatz? then exit loop
'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[packe ewjou.dat_]ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
dati$="xfer."+zaehl$("",999,1)
'pack all
shell "pkarc -u "+lauf$+dati$+" "+lauf+"ewjou.dat >nul"
' shell "pkarc -a "+lauf$+dati$+" "+lauf+"neu_ean.txt>nul"
'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[Sicherung EC-daten dazupacken]ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
anzeige "Sicherung EC-Daten"
datiec$="EC"+zaehl$("",9999,1)+".arc"
shell "pkarc -u "+lauf$+datiec$+" "+lauf+"eckauf.dat >nul"
shell "pkarc -u "+lauf$+dati$+" "+lauf$+datiec$+">nul"
anzeige "Sicherung Punktdatei "+ld$
shell "pkarc -u "+lauf$+dati$+" "+ld$+" >nul"
'check packed file
if tesarc%(lauf$+dati$) then
anzeige "arc ok "+dati$
else
fehler "Festplatte ? -bea-dis.bas"
anzeige "Festplatte ? -bea-dis.bas"
sleep:nix$=inkey$
exit loop
end if
'xfer123.arc wird auf Lw$ kopiert !!!!
'hier gibt's fehler probiere es mit xcopy
if copyfile(lauf$+dati$,lw$+dati$) = -1 then
'shell "copy "+lauf$+dati$+" "+lw$+dati$+" >nul"
'shell "copy "+lauf$+dati$+" "+vkdat$+" /V >nul"
if tesarc%(lW$+dati$) then
name lauf$+"ewjou.dat" as lauf$+"ewjou."+zaehl$("",999,0)
'if dir$(lauf$+"neu_ean.txt")<>"" then
'kill lauf$+"neu_ean.txt"
'end if
anzeige dati$+" auf Laufwerk "+lw$+" kopiert"
else
fehler "keine Daten auf "+lw$+dati$
name lauf$+dati$ as lauf$+"xxxx."+zaehl$("",999,0)
'benenne sicherung um auf xxxx.999
sleep:nix$=inkey$
exit loop
end if
anzeige "Datendiskette erfolgreich erstellt "+zahl
sleep:nix$=inkey$
else
'error on copy sometimes
fehler "Fehler beim Copieren von "+lw$+dati$
end if
exit loop 'zwangsausstieg
loop
zahl=""
end if
[CODE]
Best regards
Matthias Kuhn
------------------
I´ve a dos-program and I`m in full size mode.
Under Dos 6.22 there are no errors.
Under win98 following works sometimes and sometimes not:
- shell "pkxarc a:test ewsum.dat"
- shell "copy "a:\kasarc.arc c:\refo\kasarc.arc"
- sometimes files will not appear onto Disk; but the disk is ok
Is it possible, that i use too much memory ??? ( no error code there)
Any other Idea´s ?
( The code is too big to get it to the forum )
so I send only a little
[CODE]
'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[Verkaufsdaten auf Disk_]ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
if zahl="6060" or zahl="6666" then
lw$="a:"
diskfrei 'check diskplace
do
'data there
if vkdaten_nicht_da? then exit loop
'diskspace ok
if zuwenig_diskettenplatz? then exit loop
'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[packe ewjou.dat_]ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
dati$="xfer."+zaehl$("",999,1)
'pack all
shell "pkarc -u "+lauf$+dati$+" "+lauf+"ewjou.dat >nul"
' shell "pkarc -a "+lauf$+dati$+" "+lauf+"neu_ean.txt>nul"
'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[Sicherung EC-daten dazupacken]ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
anzeige "Sicherung EC-Daten"
datiec$="EC"+zaehl$("",9999,1)+".arc"
shell "pkarc -u "+lauf$+datiec$+" "+lauf+"eckauf.dat >nul"
shell "pkarc -u "+lauf$+dati$+" "+lauf$+datiec$+">nul"
anzeige "Sicherung Punktdatei "+ld$
shell "pkarc -u "+lauf$+dati$+" "+ld$+" >nul"
'check packed file
if tesarc%(lauf$+dati$) then
anzeige "arc ok "+dati$
else
fehler "Festplatte ? -bea-dis.bas"
anzeige "Festplatte ? -bea-dis.bas"
sleep:nix$=inkey$
exit loop
end if
'xfer123.arc wird auf Lw$ kopiert !!!!
'hier gibt's fehler probiere es mit xcopy
if copyfile(lauf$+dati$,lw$+dati$) = -1 then
'shell "copy "+lauf$+dati$+" "+lw$+dati$+" >nul"
'shell "copy "+lauf$+dati$+" "+vkdat$+" /V >nul"
if tesarc%(lW$+dati$) then
name lauf$+"ewjou.dat" as lauf$+"ewjou."+zaehl$("",999,0)
'if dir$(lauf$+"neu_ean.txt")<>"" then
'kill lauf$+"neu_ean.txt"
'end if
anzeige dati$+" auf Laufwerk "+lw$+" kopiert"
else
fehler "keine Daten auf "+lw$+dati$
name lauf$+dati$ as lauf$+"xxxx."+zaehl$("",999,0)
'benenne sicherung um auf xxxx.999
sleep:nix$=inkey$
exit loop
end if
anzeige "Datendiskette erfolgreich erstellt "+zahl
sleep:nix$=inkey$
else
'error on copy sometimes
fehler "Fehler beim Copieren von "+lw$+dati$
end if
exit loop 'zwangsausstieg
loop
zahl=""
end if
[CODE]
Best regards
Matthias Kuhn
------------------
Comment