Beste heren, dames en andere uber-programmeurs,
Ik ben bezig met een delphi 8 .NET applicatie die backups zou kunnen maken van een bepaalde map op de server. De situatie is als volgt:
- de server heeft de volgende directory structuur (HTTP gezien) :
ROOT
- bin
- bestanden
- loempia
- pics
de aspx files etc
- alleen de map loempia en root zijn van belang. in de root staan al me html en aspx files etc. in de map loempia staan de files die geback-uped moeten worden.
- ik heb een form die 3 buttons (show all, show new files, backup) en 1 listbox (om de files te laten zien) bevat
- als ik op show all klik, zie je alle files in de listbox verschijnen (dit werkt)
- als ik op show new klik, moet hij kijken wat er nieuw bij is gekomen (of gewijzigd) sinds datum X (staat in een variabele) --> dit werkt dus niet
- als ik op backup klik, moet hij de files die in de lijst staan kopieren naar c:\backup\ --> hier heb ik nog niet naar gekeken... het mooiste zou zijn als hij dit in een zip ofzo zou zetten...
ik vraag in eerste instantie hulp bij het checken of een datum van een bestand nieuwer is dan de datum in de variabele.
mocht iemand suggesties hebben over het kopieren van de server naar een locale PC, is dat uiteraard ook welkom.
hieronder het stukje code onder de button 'show all' :
Code:
uses
System.Collections, System.ComponentModel, System.IO,
System.Data, System.Drawing, System.Web, system.DirectoryServices, System.Web.SessionState,
System.Web.UI, System.Web.UI.WebControls, System.Web.UI.HtmlControls,
System.Globalization;
procedure TWebForm1.Button_ShowAll_Click(sender: System.Object; e: System.EventArgs);
var
i: integer;
DirSearch: DirectoryInfo;
Files, Dirs: array [0..1000] of string;
Files_Info: array of FileInfo;
begin
ListBox1.Items.Clear;
DirSearch := DirectoryInfo.Create(Server.MapPath('loempia'));
if DirSearch.Exists then
begin
Files_Info := DirSearch.GetFiles('*.*');
for i := 0 to Length(Files_Info) - 1 do
begin
Files[i] := Files_Info[i].ToString;
ListBox1.Items.Add(Files[i]);
end;
end
else errortekst.Text := 'directory bestaat niet';
end;
alvast dank voor jullie tijd en inspanning en ideeën en oplossingen!
Bookmarks