Results 1 to 4 of 4

Thread: Incrementele backup script

  1. #1

    Lightbulb Filedatum probleem (eigen backup programma)

    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!
    Last edited by ThermoBart; 21-Mar-05 at 14:41.
    Life is like an eggroll; some people like it, some people don't, but nobody knows what's inside...

  2. #2
    FileInfo heeft ook properties met betrekking tot de datum/tijd van het bestand. Bijvoorbeeld CreationTime, LastAccessTime en LastWriteTime. Deze kun je dus vergelijken met je variabele. Als de LastWriteTime groter is dan je laatste backupdatum moet het bestand mee worden genomen.
    Marcel

  3. #3
    Verder is er het Archief flag van een bestand, deze wordt automatisch door Windows gezet als een bestand is veranderd en dus klaar is om te worden gearchiveerd. Vervolgens kun jij deze flag weer uit zetten.

    Heb hier zelf nooit iets mee gedaan, maar maak wel es een backup.

  4. #4
    dank u allen voor de hulp

    m'n script werkt momenteel met datum, maar die archiefvlag lijkt me wel ideaal!
    ik ga er ff naar kijken
    Life is like an eggroll; some people like it, some people don't, but nobody knows what's inside...

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. script probleem bij Delphi 5.0 standaard
    By naruto in forum Algemeen
    Replies: 4
    Last Post: 28-Aug-03, 10:53
  2. restore database : BACKUP NUMBER
    By Willemm in forum Databases
    Replies: 1
    Last Post: 31-Mar-03, 11:51
  3. WebBrowser1.Navigate hangt op een script
    By Henk Schreij in forum WebDelphi
    Replies: 5
    Last Post: 14-Mar-03, 12:46
  4. Sql server 2000 backup
    By Acid Burn in forum Databases
    Replies: 2
    Last Post: 03-Feb-03, 15:47

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •