Reading From A File

[GDOG34]

I have a text file and it contains a list of file names. Is there a way where I can pull each file name one by one and check to see if the files exists then delete it? Then if the process gets to the end of the file it can just stop?

[baja_yu]

Use FileListBox, open it to the folder with the files then use For Next loop to go through all of the files (or are the files in a classic ListBox). You can use Kill function to delete a file and Dir to check if it exists.

There are a lot of examples of using those in VB6, just use Search on the forums http://www.vbforums.com/search.php

[GDOG34]

Do I have to use the FileListBox?

[baja_yu]

I may have missunderstood what you were trying to do at that point. Is this correct: You have a list of files (possibly in a list box) and you want to check if each of them exists on the computer, and if it does delete the file?

[TheBigB]

Well basically it's just a matter of loading the textfile into a variable, an array preferably.
The method for this depends on the format of the file.
Then you look for a FileExist function; try codebank, EllisDee had something like it if I recall correctly
And finally you'll run the array through the FileExist function.

[anhn]

Try this that uses just basic VB functions:

Sub KillFiles()
    Dim sFileListPath As String
    Dim arFiles() As String
    Dim i As Long
    
    sFileListPath = "C:\MyFolder\FileList.txt"
    
    Open sFileListPath For Input As #1
    arFiles = Split(Input(LOF(1), 1), vbCrLf)
    Close #1
    For i = 0 To UBound(arFiles)
        arFiles(i) = Trim(arFiles)
        If Len(arFiles(i)) Then
            If Len(Dir(arFiles(i), vbHidden)) Then
                Kill arFiles(i)
                Debug.Print "Killed:    "; arFiles(i)
            Else
                Debug.Print "Not Found: "; arFiles(i)
            End If
        End If
    Next
End Sub

[VBClassicRocks]

This approach uses two string arrays. You could also
open a 2nd file & write to that when an existing file is found.
Another approach might be to use an ArrayDelete function to
weed out the non-existing files.

Option Explicit
Private Sub Form_Load()
 Dim i As Long
 Dim FA() As String 
 Dim NFA() As String
 Dim NewCnt As Long
 Dim FileText As String
 Dim hFile As Long
 'read the entire file
 '******change to proper path**********
 FileText = ReadFileBinary("C:\Files.txt")
 If Len(FileText) Then 'any files?
  FA = Split(FileText, vbNewLine) 'create zero based array
  For i = 0 To UBound(FA)
   If Len(FA(i)) Then 'in case of empty lines
    If FileExists(FA(i)) Then
     NewCnt = NewCnt + 1 'yes, add to NewFile array NFA
     ReDim Preserve NFA(1 To NewCnt)
     NFA(NewCnt) = FA(i)
    End If 'FileExists(FA(i))
   End If 'Len(FA(i))
  Next
  If NewCnt Then 'any existing files?
   hFile = FreeFile 'yes, write the array to file
   'here you might want to write to a different file
   Open "C:\Files.txt" For Output As hFile 'effectively kills the old file
   For i = 1 To NewCnt
    Print #hFile, NFA(i)
   Next
   Close hFile
  Else
   'none of the files exist
   'so do whatever--perhaps kill the textfile
  End If 'NewCnt
 End If 'Len(FileText)
End Sub

Private Function ReadFileBinary(ByVal sFilePath As String) As String
 Dim hFile As Long
 hFile = FreeFile
 Open sFilePath For Binary As #hFile
 ReadFileBinary = String$(LOF(hFile), Chr$(0))
 Get #hFile, , ReadFileBinary
 Close #hFile
End Function
Public Function FileExists(ByVal sFile As String) As Boolean
 Dim eAttr As Long
 On Error Resume Next
 eAttr = GetAttr(sFile)
 FileExists = (Err.Number = 0) And ((eAttr And vbDirectory) = 0)
 On Error GoTo 0
End Function