Status bei FILE.COPY möglich? (CC)

[Schany79]

Hallo zusammen,

ich setze hier gerade ein riesengrosses Projekt um und habe da eine Frage.
Folgende Programmierung habe ich in den "OnPush" Trigger eines Buttons geschrieben:

Code: Alles auswählen

IF Trittspur <> '' THEN BEGIN
  Pos := STRPOS(Trittspur,'.');
  FileEnding := COPYSTR(Trittspur,Pos);
    OSCHeader.SETRANGE("No.","No.");
      IF OSCHeader.FINDLAST THEN BEGIN
        FilePathNew := '\\192.168.X.X\Test\';
        FileNameNew := 'TS' + '-' + OSCHeader."Customer Name" + '-' + "No." + FileEnding;
          IF FILE.COPY(Trittspur,FilePathNew + FileNameNew) THEN
            MESSAGE('kopiert')
          ELSE
            MESSAGE('Nope');
      END;
END;


Hier jetzt meine Frage:
Kann man sich einen Status über den Kopier-Vorgang anzeigen lassen? Wir müssen hier teilweise recht große Dateien kopieren und da wäre ein Status mehr als Vorteilhaft.

Würde mich über jeden Lösungsansatz freuen....

[Kowa]

Hallo Schany79,

dein Quelltext ist leichter zu lesen und zu verstehen, wenn du ihn zwischen so genannte Code-Tags setzt. Insbesondere deine Formatierungen werden so auch beibehalten.

Daher bitten wir dich, vor und nach deinem Quelltext diese Code-Tags einzufügen. Beispiel:

[code]Dein Quelltext[/code]

Gruß, Kai
MSDynamics.de-Team

[Kowa]

Fürs komfortables Kopieren und vieles andere mehr bietet sich das Windows FileSystemObject an. Das kann in NAV als Automation Server genutzt werden.

[JanGD]

Oder, sofern R2 im Einsatz ist, nehme man eine .net interop

[Schany79]

Sorry, das mit der Formatierung wusste ich nicht... Aber ich bin ja sowieso hier um dazu zu lernen

Mit dem AutomationServer hätte mir auch einfallen können, ich glaube das werde ich mir gleich mal anschauen!

oweia... mit .net kann ich nu noch garnix Anfangen.... und davon mal ab: Ist das nicht mehr was für den RTC anstatt für den CC?

[Schany79]

Fürs komfortables Kopieren und vieles andere mehr bietet sich das Windows FileSystemObject an. Das kann in NAV als Automation Server genutzt werden.

Ich finde den Automation Server nicht, was dafür spricht das die dll nicht installiert ist, wenn ich richtig liege, oder? Ich habe noch nicht so häufig mit dem Automation Server gearbeitet....

[Kowa]

Das FSO versteckt sich hinter "Microsoft Scripting Runtime".

MSScript.jpg (40.52 KiB) 1190-mal betrachtet

Die ist immer dabei, es sei den man trifft noch auf Windows NT . Da muss man es nachinstallieren.

[Schany79]

Hallo Kai,

danke für Deine Antwort.
Ich habe das jetzt Testweise so Programmiert:

Code: Alles auswählen

CopyTest.CopyFile(Trittspur,FilePathNew + FileNameNew);


Das funktioniert auch soweit. Das Problem ist das er mir hier auch keine Statusmeldung anzeigt. Ich hätte gerne so ein Windows Standard "Kopierbalken" wie man diesen bei eigentlich allen Programmen sieht.
Wenn Du da noch irgendeine Idee hättest, wie ich das eventuell mit der Automation Variabele hinbekomme, dann wäre ich Dir echt dankbar

Gruß Sascha