CreateDir legt kein Verzeichnis an

[marcibaer]

Hallo zusammen,

ich habe einen Fehler, den ich mir nicht erklären kann:

Delphi-Quellcode:

      Nummer := 0;
      REPEAT
        ok := CreateDir(Verzeichnis);
        IF not ok THEN
          begin
            Inc(Nummer);
            o := Pos('~',Verzeichnis);
            if (o > 0) then
              Delete(Verzeichnis,o,255);
            Verzeichnis := Verzeichnis+'~'+IntToStr(Nummer);
          end;
      UNTIL ok;

Klappt bei mir hervorragend, bei 2 Nutzern, die genau so XP benutzen, wie ich, allerdings nicht!
D.h. die Routine wird abgearbeitet, CreateDir MUSS also mal TRUE geliefert haben, aber es gibt KEIN
Verzeichnis - Rechnersuche nach einer Datei, die dann IN dem Verzeichnis sein sollte, brachte kein Ergebnis.

Kann das irgendetwas mit Benutzerrechten zu tun haben?!

Iegendwelche Vorschläge!?

Marc