title image


Smiley Warum so lang? Es geht auch kürzer!
Hi!Wenn du Dateien über die Dateisuche löschen willst versuch es lieber so:Option ExplicitDim fso As New FileSystemObjectDim fld As FolderPrivate Sub Command1_Click()  Dim nDirs As Integer, nFiles As Integer, lSize As Long  Dim sDir As String, sSrchString As String  sDir = InputBox("Gib das Vezeichnis ein dessen Inhalt gelöscht werden soll", _                  "Verzeichnisinhalt löschen", "C:\")  sSrchString = "*.*"  MousePointer = vbHourglass  lSize = FindFile(sDir, sSrchString, nDirs, nFiles)  MousePointer = vbDefault  MsgBox Str(nFiles) & " Dateien gelöscht!", vbInformationEnd SubPrivate Function FindFile(ByVal sFol As String, sFile As String, _  nDirs As Integer, nFiles As Integer) As Long  Dim tFld As Folder, tFil As File, FileName As String  Set fld = fso.GetFolder(sFol)  FileName = Dir(fso.BuildPath(fld.Path, sFile), vbNormal Or _    vbHidden Or vbSystem Or vbReadOnly)    While Len(FileName) 0      FindFile = FindFile + FileLen(fso.BuildPath(fld.Path, _                 FileName))      nFiles = nFiles + 1      Kill (fso.BuildPath(fld.Path, FileName))      FileName = Dir()         DoEvents      Wend nDirs = nDirs + 1 If fld.SubFolders.Count > 0 Then      For Each tFld In fld.SubFolders         DoEvents         FindFile = FindFile + FindFile(tFld.Path, sFile, nDirs, _                    nFiles)      Next End If RmDir fld.PathEnd FunctionFür dieses Programm benötigst du das FileSystemObject. Das FSO kannst du unter Projekt / Verweise mit MS Scripting Runtime einschalten.(http://support.microsoft.com/support/kb/articles/Q185/6/01.ASP)Mr. SICQ #67858520

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: