Const strFolderPath = "D:\DATEN"
 
Private Sub Form_Load()
 
    Timer1.Enabled = True
 
End Sub
 
Private Sub Timer1_Timer()
On Error GoTo Err
 
    Dim make As New FileSystemObject
 
    If make.FolderExists(strFolderPath) = True Then
        File1.Path = strFolderPath
        File1.Refresh
 
        If File1.ListCount > 0 Then
            make.DeleteFolder strFolderPath
            make.CreateFolder strFolderPath
        End If
    End If
 
Err:
End Sub

Mit freundlichen Gr??en,
Andy G.