Scripting.FileSystemObject a Windows 7 (x64)
Witam
Symfonia FKP 2012a, Windows 7 (x64)
problem ze skryptem:
Kod:
#define fsoForReading 1
#define fsoForWriting 2
#define fsoForAppending 8
dispatch fso = "Scripting.FileSystemObject"
dispatch f
String bi_katal = Katalog()
String bi_katTmp = ""
int sub PrzelEleNaPlik( int bi_param1)
Select Case bi_param1
Case 0
Case 1
//debugger
//Otwarcie nowego pliku
Case 2
bi_katTmp = bi_katal+"bi2bank\\Paczka.tmp"
f = fso.OpenTextFile(bi_katTmp,fsoForAppending)
f.WriteLine("arg0:")
f.WriteLine("")
f.WriteLine("")
f.WriteLine("arg1:")
f.WriteLine("arg2:")
f.WriteLine("arg3:"+arg3)
f.WriteLine("arg4:"+arg4)
f.WriteLine("arg5:"+arg5)
f.WriteLine("arg6:"+arg6)
f.WriteLine("arg7:"+arg7)
f.WriteLine("arg8:"+arg8)
f.WriteLine("arg9:"+arg9)
f.WriteLine("-*-*-*-*-*-*-*-*-" + bi_katTmp)
f.Close()
Case Else
EndSelect
endsub
Powyższy skrypt wywoływany jest cyklicznie w raporcie z rozrachunków, dopisując informacje zawarte w argumentach od arg0, do arg9.
Na maszynach z XP (x32) pracuje prawidłowo, znaczy się otwiera i dopisuje dane do "PACZKA.TMP",
natomiast na rzeczonej albo wygeneruje jedną pozycję, nie zrobi nic, lub czasu do czasu wygeneruje błąd o niemożności otwarcia tego pliku(paczka.tmp).
Nie za bardzo wiem co z tym "fantem" zrobić :[
PS.
Użytkownik zalogowany na tej maszynie ma full uprawnień.
Edit.
zapomniałem dodać: instalacja wielostanowiskowa, serwer to XP PRO (x32), bez Pervasiv'a
(Jest sposób aby zainstalować stacje roboczą na kompie z x64 bez Pervasiv'a na serwerze)
