Dateien mit Kill Funktion löschen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

' ********************************************************************** ' Modul: Modul3 Typ: Allgemeines Modul ' ********************************************************************** Option Explicit Public Enum XL_FILESTATUS XL_UNDEFINED = -1 XL_CLOSED XL_OPEN XL_DONTEXIST End Enum Public Function FileStatus(xlFile As String) As XL_FILESTATUS On Error Resume Next Dim File%: File = FreeFile Err.Clear Open xlFile For Input Access Read Lock Read As #File Close #File Select Case Err.Number Case 0: FileStatus = XL_CLOSED Case 70: FileStatus = XL_OPEN Case 76: FileStatus = XL_DONTEXIST Case Else: FileStatus = XL_UNDEFINED End Select End Function Sub TMP_Loeschen() Dim Verzeichnis As String, strFile As String Verzeichnis = Environ("TEMP") & "\" strFile = Dir(Verzeichnis & "*.txt", vbNormal) Do While strFile <> "" If FileStatus(Verzeichnis & strFile) = XL_CLOSED Then Kill Verzeichnis & strFile strFile = Dir Loop End Sub

' ********************************************************************** ' Modul: Modul3 Typ: Allgemeines Modul ' ********************************************************************** Option Explicit Public Enum XL_FILESTATUS XL_UNDEFINED = -1 XL_CLOSED XL_OPEN XL_DONTEXIST End Enum Public Function FileStatus(xlFile As String) As XL_FILESTATUS On Error Resume Next Dim File%: File = FreeFile Err.Clear Open xlFile For Input Access Read Lock Read As #File Close #File Select Case Err.Number Case 0: FileStatus = XL_CLOSED Case 70: FileStatus = XL_OPEN Case 76: FileStatus = XL_DONTEXIST Case Else: FileStatus = XL_UNDEFINED End Select End Function Sub TMP_Loeschen() Dim objFSO As Object, objFolder As Object, objFile As Object Dim strPath As String strPath = Environ("TEMP") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strPath) For Each objFile In objFolder.Files If objFile.Name Like "*.txt" Then If FileStatus(objFile.Path) = XL_CLOSED Then objFSO.DeleteFile objFile.Path End If Next Set objFSO = Nothing Set objFolder = Nothing Set objFile = Nothing End Sub

Hallo Timo,
dann hilft wohl nur rohe Gewalt;-))

' **********************************************************************
' Modul: Modul3  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Enum XL_FILESTATUS
  XL_UNDEFINED = -1
  XL_CLOSED
  XL_OPEN
  XL_DONTEXIST
End Enum

Public Function FileStatus(xlFile As String) As XL_FILESTATUS
  
  On Error Resume Next
  
  Dim File%: File = FreeFile
  
  Err.Clear
  
  Open xlFile For Input Access Read Lock Read As #File
  Close #File
  
  Select Case Err.Number
    Case 0: FileStatus = XL_CLOSED
    Case 70: FileStatus = XL_OPEN
    Case 76: FileStatus = XL_DONTEXIST
    Case Else: FileStatus = XL_UNDEFINED
  End Select
  
End Function


Sub TMP_Loeschen()
  Dim objFSO As Object, objFolder As Object, objFile As Object
  Dim strPath As String
  
  strPath = Environ("TEMP")
  
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  
  Set objFolder = objFSO.GetFolder(strPath)
  
  On Error Resume Next
  
  For Each objFile In objFolder.Files
    If objFile.Name Like "*.txt" Then
      If FileStatus(objFile.Path) = XL_CLOSED Then objFSO.DeleteFile objFile.Path
    End If
  Next
  
  Set objFSO = Nothing
  Set objFolder = Nothing
  Set objFile = Nothing
End Sub

« Gruß Sepp »

Beliebteste Forumthreads (12 Monate)

Dateien mit Kill Funktion löschen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

8 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dateien mit Kill Funktion löschen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

8 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread