VB6 - brisanje datotek - pomoč

Imam Form1 na kateri se nahaja kontrolnik TextBox1 in Gumb1.

V TextBox1 vpišem število dni (npr. 150) in pritisnem Gumb1 (O.K.)

Sedaj bi rad kodo ;-), ki bi mi iz določenega direktorija oz. vseh njegovih poddirektorijev izbrisala vse datoteke ki so starejše od 150 dni oz. kolko je v TextBox1.caption.

Vem samo ime glavnega direktorija oz. mape. Vse ostale mape /direktoriji/ so neznani !!

LEPO PROSIM ZA NASVET OZ. KODO. Častim PIVO !!

Pivo :- Glej pivo.

To je definicija rekurzije. To ti bo prav prišlo pri tvojem programu.

http://vbnet.mvps.org/code/fileapi/inde...

POglej tuki kako se rekurzivno sprehaja po strukturi imenikov pa tko naprej. Za samo brisanje si pa pol sam kodo sestavi.

Sicer se pa tud na googlu najde sam mal je treba poiskat

@BigWhale:

Ja sem že programiral v VB, sam ne vem kako se po direktorijih premikat.

Rabim pa najhitrejši način za izbris starejših datotek.

@Slide:
A ti v tej novo-kreirani datoteki izpiše tudi direktorije al samo datoteke ???

Kakšna je sintaksa ???

Malo pozno, ampak vseeno....

najbolj eleganten način za take stvari je FSO...

Ok... najprej dodaj referenco na "Microsoft Scripting Runtime" (project -> references), pol pa na formo postavi 2 textboxa in 1 gumb... pol pa skopiraj tole kodo:

Option Explicit

Private Sub DeleteFiles(sFolderPath As String, lDays As Long)
Dim FS As New FileSystemObject
Dim FSfile As File
Dim FSfolder As Folder
Dim subfolder As Folder

Set FSfolder = FS.GetFolder(sFolderPath)
For Each FSfile In FSfolder.Files
DoEvents
If DateDiff("d", FSfile.DateLastModified, Now) > lDays Then
FSfile.Delete True
End If
Next FSfile

For Each subfolder In FSfolder.SubFolders
Call DeleteFiles(subfolder.Path, lDays)
Next subfolder
Set FSfolder = Nothing
End Sub

Private Sub Command1_Click()
DeleteFiles Text1, Text2
End Sub

LOL.