FTP Rush - Daten Automatisch Entpacken lassen

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von SystemUnknow.

    FTP Rush - Daten Automatisch Entpacken lassen

    Moin Leute,
    Ich möchte gerne mit FTP Rush Daten automatisch entpakcen lassen.
    Also ich klicke z.B. Backup 2010 an und dann Läd der das Backup Runter und Entpackt es sofort.
    Ich würde jetzt Winrar (7Zip geht auch) und FTP Rush zusammen laufen lassen.
    Könnt ihr mir da helfen?

    Unter "Tools" -> "Script Designer" steht dies:

    VB.NET-Quellcode

    1. uses
    2. rfScriptEnv, System, Classes, Sysutils;
    3. procedure RefreshAndFXPManyTimes(Sender);
    4. begin
    5. RushApp.UI.Selection.Prepare;
    6. if RushApp.UI.Selection.CanFXP and (RushApp.UI.Selection.Count=1) then begin
    7. if RushApp.UI.Selection.Items[0].IsFolder then
    8. RushApp.UI.Selection.MakeFXPQueue(
    9. RushApp.UI.Selection.FtpID,
    10. RushApp.UI.Selection.FtpPath,
    11. RushApp.UI.Selection.Items[0].Name,
    12. RushApp.UI.Selection.TargetFtpID,
    13. RushApp.UI.Selection.TargetFtpPath,
    14. RushApp.UI.Selection.Items[0].Name,
    15. RushApp.UI.Selection.Items[0].Size,
    16. RushApp.UI.Selection.Items[0].IsFolder,
    17. RushApp.UI.Selection.IsLeftSide,
    18. True,
    19. RushApp.UI.Selection.FtpName +' to ' + RushApp.UI.Selection.TargetFtpName,
    20. 50,
    21. '([^\w]*100%[^\w]*)|([^\w]*-\sCOMPLETE\s\)[^\w]*)|([^\w]*-\sCOMPLETE\s-[^\w]*)'
    22. );
    23. end;
    24. end;
    25. procedure OnCallExternalProgramClick(Sender);
    26. begin
    27. RushApp.UI.Selection.Prepare;
    28. if RushApp.UI.Selection.IsLocalSide and (RushApp.UI.Selection.Count>0) then begin
    29. ShowMessage(RushApp.UI.Selection.Items[0].FullPath);
    30. end else
    31. ShowMessage('doh!');
    32. end;
    33. procedure OnSwitchlayout(Sender);
    34. begin
    35. //RushApp.UI.Bar.StatusBar.SumWindowButton.Visible := False;
    36. //RushApp.UI.Bar.StatusBar.SumTransferButton.Visible := False;
    37. //RushApp.UI.Bar.StatusBar.SumConnectedButton.Visible := False;
    38. //RushApp.UI.Bar.StatusBar.ProgressItem.Width := 240;
    39. //RushApp.UI.Menu.Local.Add('Misc.','Call External App...',5,'Ctrl+F12').OnClick :='OnCallExternalProgramClick';
    40. //RushApp.UI.Menu.Remote.Add('', 'FXP it 50 times',2,'').OnClick :='RefreshAndFXPManyTimes';
    41. end;
    42. //Entry point !!!
    43. begin
    44. RushApp.UI.OnSwitchLayout := 'OnSwitchlayout';
    45. end;


    lg KK

    Edit: Es kann ruhig ein Zusatz Programm werden, welches FTP R. dann überwacht (Währe mir auch lieber :D)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „KingKenneth“ ()