Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- private void AutoUpdate(ref string OrgPath) {
- string AppPath;
- long Versuch;
- double DateLocal;
- double DateNet;
- // TODO: On Error Resume Next Warning!!!: The statement is not translatable
- if ((App.EXEName.Substring((App.EXEName.Length - 4)).ToLower() != ".upd")) {
- // Normale EXE wurde gestartet:
- AppPath = (App.Path + ("\\" + App.EXEName));
- if (Dir((AppPath + ".upd.exe")).Length) {
- // Aufr�umen, ggf. altes Update l�schen: *5*
- for (Versuch = 1; (Versuch <= 10); Versuch++) {
- Err.Clear;
- Kill;
- (AppPath + ".upd.exe");
- if ((Err.Number == 0)) {
- break;
- }
- Pause;
- 1;
- }
- }
- // Zeitstempel vergleichen: *1*
- DateLocal = FileDateTime((AppPath + ".exe"));
- DateNet = FileDateTime(OrgPath);
- if ((DateNet > DateLocal)) {
- Beep;
- // Neue Version lokal kopieren:
- for (Versuch = 1; (Versuch <= 10); Versuch++) {
- Err.Clear;
- FileCopy;
- OrgPath;
- (AppPath + ".upd.exe");
- if ((Err.Number == 0)) {
- break;
- }
- Pause;
- 1;
- }
- if (Err.Number) {
- // Wiederholter Fehler:
- Beep;
- MsgBox;
- (App.EXEName + " konnte nicht aktualisiert werden!");
- System.Windows.Forms.MessageBoxIcon.Information;
- }
- else {
- // Neue Version erstmals starten: *2*
- Pause;
- 0.1;
- Shell;
- (AppPath + (".upd.exe " + Command));
- vbNormalFocus;
- }
- // Neue Version erstmals gestartet:
- AppPath = (App.Path + ("\\"
- + (App.EXEName.Substring(0, (App.EXEName.Length - 4)) + ".exe")));
- for (Versuch = 1; (Versuch <= 10); Versuch++) {
- Err.Clear;
- FileCopy;
- (App.Path + ("\\"
- + (App.EXEName + ".exe")));
- AppPath;
- if ((Err.Number == 0)) {
- break;
- }
- Pause;
- 1;
- }
- if (Err.Number) {
- // Wiederholter Fehler:
- Beep;
- MsgBox;
- (App.EXEName + " konnte nicht aktualisiert werden!");
- System.Windows.Forms.MessageBoxIcon.Information;
- }
- else {
- // Endlich die neue Version "richtig" starten: *4*
- Pause;
- 0.1;
- Shell;
- (AppPath + (" " + Command));
- vbNormalFocus;
- }
- }
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement