Seite 2 von 2

Verfasst: 03.01.2009 01:12
von PMV
ts-soft hat geschrieben:Wo ist der Beitrag von Kaeru?
Das entstellt doch meinen Beitrag, da ich die Mehrzahl nutzte

keine feine Art, normalle User können das ja auch nicht /:->
Doch, wenn es der letzte Beitrag in einem Thread ist schon ... und das
war auch denke ich hier der Fall ... ich zumindest hab z.B. nur deinen
Post gelesen ... aber selbst wenn nicht ...

MFG PMV

Verfasst: 03.01.2009 01:19
von ts-soft
war nicht der letzte Beitrag, war der Beitrag vor dem von mir zitierten, der jetzt fehlt.
das gehört sich einfach nicht, basta

Verfasst: 03.01.2009 01:21
von Kaeru Gaman
sorry, das muss sich überschnitten haben. :oops:

... ich hatte unsinn erzählt... war abgelenkt und unkonzentriert und hab deshalb nicht erst die Help geprüft... hätte nicht antworten sollen...

Verfasst: 03.01.2009 01:23
von ts-soft
Kaeru Gaman hat geschrieben:sorry, das muss sich überschnitten haben. :oops:
Angenommen :wink:
wollte es nur bemerken :mrgreen:

Verfasst: 03.01.2009 10:16
von PMTheQuick

Code: Alles auswählen

If FindString(test$,endestring$,1) 
       Debug  DeleteFile(GetTemporaryDirectory()+"spacebot.html") ; = 0 
       ende = 1  
      EndIf 
      
      
       Wend 
    
    CloseFile(1) 

Sollte das CloseFile nicht zuerst kommen?

Gruss
PMTheQuick ;-)

Verfasst: 04.01.2009 03:08
von X360 Andy
Naja das sollte jetzt nicht sooo viel ausmachen ?

Verfasst: 04.01.2009 12:30
von Kiffi
X360 Andy hat geschrieben:Naja das sollte jetzt nicht sooo viel ausmachen ?
wie wäre es denn mal mit ausprobieren? /:->

Test1: DeleteFile() vor CloseFile()

Code: Alles auswählen

; Testdatei anlegen
CreateFile(0, "C:\x360.txt")
For Counter = 0 To 9
  WriteStringN(0, "IrgendeinText" + Str(Counter))
Next
CloseFile(0)

; -------------
  
ReadFile(1, "C:\x360.txt")
  
test$ = ReadString(1)

If DeleteFile("C:\x360.txt")
  Debug "Datei wurde erfolgreich gelöscht"  
Else
  Debug "Datei konnte nicht gelöscht werden"  
EndIf

CloseFile(1)
Test2: CloseFile() vor DeleteFile()

Code: Alles auswählen

; Testdatei anlegen
CreateFile(0, "C:\x360.txt")
For Counter = 0 To 9
  WriteStringN(0, "IrgendeinText" + Str(Counter))
Next
CloseFile(0)

; -------------
 
ReadFile(1, "C:\x360.txt")
  
test$ = ReadString(1)

CloseFile(1)

If DeleteFile("C:\x360.txt")
  Debug "Datei wurde erfolgreich gelöscht"  
Else
  Debug "Datei konnte nicht gelöscht werden"  
EndIf
Das hat nix mit Vista zu tun sondern mit unsauberer Programmierung.

Verfasst: 04.01.2009 13:13
von Kaeru Gaman
meine Güte... da war ja tatsächlich so ein Durcheinandergedaddele, dass es unter den Tisch gefallen ist und nur PMtQ aufgefallen.

also, überhaupt zu versuchen, eine Datei zu löschen die noch offen ist, ist eigentlich strafbar.
... aber dann noch dem OS die Schuld zuschieben wollen mit den Worten "Naja das sollte jetzt nicht sooo viel ausmachen ?"...

Oy!

also, dazu fällt mir jetzt kaum eine Analogie ein...

"Sie verschrotten ihren Wagen?"
"Jap"
"Sollte der Chauffeur nicht vorher aussteigen?"
"Naja das sollte jetzt nicht sooo viel ausmachen ?"

Verfasst: 04.01.2009 13:17
von X360 Andy
Ich hab DeleteFile() auch weiter unten im Code ausprobiert, hinter Bot() also da wo die GANZE Procedure Fertig war/ist.

Und ich dachte das bezieht sich auf die Geschwindigkeit <)