Sletning af filer

hvilken datadase bruger du?

øhh database :)

MS-SQL

Hvad med at bruge WSH:

Gem nedenstående kode som filnavn.vbs, og træk en filliste indeholdende billederne ud til en fil ved navn billeder.txt.

Kør derefter vbs-filen i samme bibliotek som billederne ligger i.

Fjen evt. echo-kommandoerne, da du ellers skal klikke "OK" hvergang en fil er slettet.


Dim filesys, testfile, contents
Set filesys = CreateObject("Scripting.FileSystemObject")
Set testfile = filesys.OpenTextFile("billeder.txt",1,-2)

do while testfile.AtEndOfStream <> true
  contents = testfile.ReadLine
  If filesys.FileExists(contents) Then
      filesys.DeleteFile contents
      WScript.Echo "File " & contents & " deleted"
  ELSE
      WScript.Echo "File " & contents & " don't exist"
  End If
loop

Hvilken seperator skal bruges i billeder.txt?

Tak det virker nu. Kan det evt laves sådan at der gemmes en rapport over hvad der er slettet.

Selvølgelig:

Nedenstående kode skrive en oversigt over slettede filer til slettet.txt og til fejl.txt hvis den ikke kan finde filen.


Dim filesys, testfile, testfile2, testfile3, contents
Set filesys = CreateObject("Scripting.FileSystemObject")
Set testfile = filesys.OpenTextFile("billeder.txt",1,-2)
Set testfile2 = filesys.OpenTextFile("slettet.txt",8,-2)
Set testfile3 = filesys.OpenTextFile("fejl.txt",8,-2)

testfile2.WriteLine("START: " & now)
testfile3.WriteLine("START: " & now)
do while testfile.AtEndOfStream <> true
  contents = testfile.ReadLine
  If filesys.FileExists(contents) Then
      filesys.DeleteFile contents
      testfile2.WriteLine(contents)
  ELSE
      testfile3.WriteLine(contents)
  End If
loop
testfile2.WriteLine("SLUT: " & now)
testfile3.WriteLine("SLUT: " & now)

Så kan jeg se at jeg ikke har testet rigtigt. For scriptet sletter filen hvis den findes i billeder.txt - det skal være omvendt - Den skal slette de filer som ikke findes i billeder.txt

Så skal der byttes om på IF og ELSE statements.

Dim filesys, testfile, testfile2, testfile3, contents
Set filesys = CreateObject("Scripting.FileSystemObject")
Set testfile = filesys.OpenTextFile("billeder.txt",1,-2)
Set testfile2 = filesys.OpenTextFile("ikkeslettet.txt",8,-2)
Set testfile3 = filesys.OpenTextFile("slettet.txt",8,-2)

testfile2.WriteLine("START: " & now)
testfile3.WriteLine("START: " & now)
do while testfile.AtEndOfStream <> true
  contents = testfile.ReadLine
  If filesys.FileExists(contents) Then
      testfile2.WriteLine(contents)
  ELSE
      filesys.DeleteFile contents
      testfile3.WriteLine(contents)
  End If
loop
testfile2.WriteLine("SLUT: " & now)
testfile3.WriteLine("SLUT: " & now)

Det har jeg prøvet men den kommmer med fejl i Linie:14 Tegn:7 Fejl: Filen blev ikke fundet Kode:800A0035

Hvis nu det kommer til at virke som planlagt, kunne der vel godt blive et par hundrede point mere som tak for din hjælp

Mystisk - det virker hos mig. Prøv at kopiere hele den nyeste kode.

Mht. flere point, vil jeg pænt afslå.

Jeg får stadig fejl
http://www.lipsum.dk/fejl.jpg

Koden er som følger:
Dim filesys, testfile, testfile2, testfile3, contents
Set filesys = CreateObject("Scripting.FileSystemObject")
Set testfile = filesys.OpenTextFile("billeder.txt",1,-2)
Set testfile2 = filesys.OpenTextFile("ikkeslettet.txt",8,-2)
Set testfile3 = filesys.OpenTextFile("slettet.txt",8,-2)

testfile2.WriteLine("START: " & now)
testfile3.WriteLine("START: " & now)
do while testfile.AtEndOfStream <> true
  contents = testfile.ReadLine
  If filesys.FileExists(contents) Then
      testfile2.WriteLine(contents)
  ELSE
      filesys.DeleteFile contents
      testfile3.WriteLine(contents)
  End If
loop
testfile2.WriteLine("SLUT: " & now)
testfile3.WriteLine("SLUT: " & now)

Og billeder.txt er som følger:

1001.TIF
1027.TIF
1028.TIF
1029.TIF
1029.TIF
1034.TIF
1034.TIF
1036.TIF
1036.TIF
1036.TIF
etc.
etc.

Så skulle den være der. Jeg havde vist misforstået dit problem

Den sletter filer der IKKE findes i billeder.txt og skriver hvilke filer den har slettet til slettet.txt og dem som ikke er blevet slettet til ikkeslettet.txt

Derudover har jeg sat den til ikke at slette txt + vbs filer i folderen.


Dim filesys, pathstring, folder, filecoll, fil, testfile, testfile2, testfile3, contents
Set filesys = CreateObject("Scripting.FileSystemObject")
pathstring = filesys.GetAbsolutePathName("c:")
set folder = filesys.GetFolder(pathstring)
set filecoll = folder.Files
Set testfile2 = filesys.OpenTextFile("ikkeslettet.txt",8,-2)
Set testfile3 = filesys.OpenTextFile("slettet.txt",8,-2)

testfile2.WriteLine("START: " & now)
testfile3.WriteLine("START: " & now)

For Each fil in filecoll
  Set testfile = filesys.OpenTextFile("billeder.txt",1,-2)
  do while testfile.AtEndOfStream <> true
      contents = testfile.ReadLine
      If fil.name = contents THEN
        testfile2.WriteLine(fil.name)
        exit do
      ELSEIF Right(fil.name, 3) = "txt" Or Right(fil.name, 3) = "vbs" THEN
        exit do
      ELSE
        testfile3.WriteLine(fil.name)
        filesys.DeleteFile(fil.name)
        exit do
      End If
  loop
Next

testfile2.WriteLine("SLUT: " & now)
testfile3.WriteLine("SLUT: " & now)

Ja nu virker den da - den sletter alle filer - rup og stup. Men det har vel noget med biller.txt at gøre og den måde "filerne" er listet på? Hvilken seperator skal jeg bruge? Linebreak, semmikolon og er vbs'en case-sensitiv?

Seperator er Linebreak

Derudover er der forskel på store & små bogstaver i filnavnene i billeder.txt

Jeg kan ikke få det til at virke - Alle filer bliver slettet. Iflg. command er file-ext .TIF

Du kan se en kopi af filnavn.vbs + billeder.txt her:

http://lipsum.dk/files/billeder.txt
http://lipsum.dk/files/filnavn.vbs

Hvis ikke du har mere energi til dette er det ok med mig.

Det ser ud til at det er billeder.txt det er galt med.

Prøv at skrive hvert billede på en ny linie.

Jeg kan godt se at ved højre klik og gem som,  kommer billeder.txt til at se mærklig ud. Men hvis du åbner linket i et nyt vindue ser den ud som den skal.

Når jeg bruger Excel til at udtrække filnavnene fra databasen, vises filnavne i celle A1, A2, A3 etc. Derefter gemmer jeg regnearket som txt-fil. Derved skulle det efter min mening være breakline der bruges som seperator. Måske tager jeg fejl.

Kender du andre metoder til at sikre sig at det er breakline som bruges?