Macro to Look for Filenames that don't match the format

[AlexH]

One of the programs we use at work creates a data file that lists filenames of information files that we use to scan in the work we've done that day. However, some of the work we do can't be logged in this way, but is still in the data file. The file name of a good file looks like "m:\trumpf9\ncdone\rueck685.txt:DA,'5969','596993','596909300',11,11,2210,'' while a bad one looks like anything except this, for instance "m:\trumpf9\ncdone\rueck686.txt:DA,'CP_TAPESHOT',1". Is there anyway to make a macro that will kill any file that doesn't match the format of the first filename? Also, some of the files have an extra "'0'," at the end of the string, or they have some of the numbers replaced by "'*'," so I'm not sure how to work around those problems.

 

[patel45]

you can not have a file name with character :

 

[AlexH]

m:\trumpf9\ncdone\rueck685.txt That's the file path. The other stuff is just data. The actual filename is rueck685.txt

 

[bstory84]

I know this is a old post, but I did not see a solution.
If you still needed a solution, it appears to me that you want to read the contents of the text file and not necessarily the file name.
if this true then hopefully this will assist you.

Option Explicit
Sub TextReader()
Dim StrFileNM       As String
Dim StrLine         As String
Dim LFileNum        As Long
     
StrFileNM = "C:\SAMPLE.TXT"
LFileNum = FreeFile
    Close LFileNum
    Open StrFileNM For Input As LFileNum
    Do While Not EOF(LFileNum)
        Line Input #LFileNum, StrLine
        Debug.Print StrLine
    Loop
End Sub

Once you identify the file you wish to delete "KILL" then you can use this

Private Sub DeleteFile()
Dim StrFileNM As String
StrFileNM = "C:\SAMPLE.TXT"
Kill StrFileNM

End Sub