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:
lg KK
Edit: Es kann ruhig ein Zusatz Programm werden, welches FTP R. dann überwacht (Währe mir auch lieber :D)
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
- uses
- rfScriptEnv, System, Classes, Sysutils;
- procedure RefreshAndFXPManyTimes(Sender);
- begin
- RushApp.UI.Selection.Prepare;
- if RushApp.UI.Selection.CanFXP and (RushApp.UI.Selection.Count=1) then begin
- if RushApp.UI.Selection.Items[0].IsFolder then
- RushApp.UI.Selection.MakeFXPQueue(
- RushApp.UI.Selection.FtpID,
- RushApp.UI.Selection.FtpPath,
- RushApp.UI.Selection.Items[0].Name,
- RushApp.UI.Selection.TargetFtpID,
- RushApp.UI.Selection.TargetFtpPath,
- RushApp.UI.Selection.Items[0].Name,
- RushApp.UI.Selection.Items[0].Size,
- RushApp.UI.Selection.Items[0].IsFolder,
- RushApp.UI.Selection.IsLeftSide,
- True,
- RushApp.UI.Selection.FtpName +' to ' + RushApp.UI.Selection.TargetFtpName,
- 50,
- '([^\w]*100%[^\w]*)|([^\w]*-\sCOMPLETE\s\)[^\w]*)|([^\w]*-\sCOMPLETE\s-[^\w]*)'
- );
- end;
- end;
- procedure OnCallExternalProgramClick(Sender);
- begin
- RushApp.UI.Selection.Prepare;
- if RushApp.UI.Selection.IsLocalSide and (RushApp.UI.Selection.Count>0) then begin
- ShowMessage(RushApp.UI.Selection.Items[0].FullPath);
- end else
- ShowMessage('doh!');
- end;
- procedure OnSwitchlayout(Sender);
- begin
- //RushApp.UI.Bar.StatusBar.SumWindowButton.Visible := False;
- //RushApp.UI.Bar.StatusBar.SumTransferButton.Visible := False;
- //RushApp.UI.Bar.StatusBar.SumConnectedButton.Visible := False;
- //RushApp.UI.Bar.StatusBar.ProgressItem.Width := 240;
- //RushApp.UI.Menu.Local.Add('Misc.','Call External App...',5,'Ctrl+F12').OnClick :='OnCallExternalProgramClick';
- //RushApp.UI.Menu.Remote.Add('', 'FXP it 50 times',2,'').OnClick :='RefreshAndFXPManyTimes';
- end;
- //Entry point !!!
- begin
- RushApp.UI.OnSwitchLayout := 'OnSwitchlayout';
- 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“ ()