Steve DD.pcs.crosspost
Data versioning July 14, 2008 03:06PM |
GuenterP
Re: Data versioning July 14, 2008 05:56PM |
Moderator |
// 3 - Open der Dateien mit spezieller Beachtung des Index und der Struktur MyY = 0; MyZ = 0; MyString3 = "" ErgebnisString = HListFile("","",hLstNormal)+CR FOR I = 1 TO StringCount(ErgebnisString,CR) MyFile = ExtractString(ErgebnisString,I,CR) IF Left(MyFile,2) = "BS" THEN WHEN EXCEPTION IN HOpen(MyFile) DO // Die Datei hat ein Problem MyZ++; MyString3 += MyFile+" Fehler: "+NumToString(HError(hErrCurrent)) IF HError() = 70021 OR HError() = 70052 THEN HIndex(MyFile,hNdxSilent) IF HError() = 70003 THEN HCreation(MyFile) IF HError() = 70016 THEN Info("Datei: "+MyFile,"Fehler 70016 aufgetreten !") END END END