delete all .TXT files

[Stockholm]

Hello, I create a time and date stamp with a .TXT extension for 9 folders and 6 sub folders such as \1 \2 \3 \4 \5 \6 for a total of 54 folders with a time stamp.TXT

C:\WebSite\A\1 \3 \4 \5 \6
C:\WebSite\A\2
C:\WebSite\B\1

I would like to delete all the .TXT records within the structure.
I have tried many ideas without success and the last one should have worked;

Del C:\Webs\*.txt /S

Please advise me as to how to get the deletion to work?
Mehran

[Praetor]

DELETE
FROM tblRecordsWithColors
INNER JOIN tblOldCopiesOfUpdatedRecords ON tblRecordsWithColors.FILE_NBR = tblOldCopiesOfUpdatedRecords.oldFILE_NBR
WHERE (((tblRecordsWithColors. FILE_NBR)=[tblOldCopiesOfUpdatedRecords]![oldFILE_
NBR]));

[Ackley]

You may use the following the VB program to clean all your files from the system.

Option Explicit 
 
Sub cleanTxt() 
     
    Dim i As Long 
    Dim lastrow As Long 
     
     turn of screen refresh for  speed
    Application. ScreenUpdating = False 
     
     get last row of data Col A
    lastrow = Range("A65536").End(xlUp).Row 
     
     format all as general
    Range(Cells(1, 1), Cells(lastrow, 1)).NumberFormat = "General" 
     
     from lastrow to Row 1
    For i = lastrow To 1  Step -1 
         test is text or blank
        If Not IsNumeric(Cells(i, 1)) Or Cells(i, 1) = "" Then 
             delete if text or blank
            Cells(i, 1).EntireRow.Delete 
        End If 
         leave if number
    Next i 
     
     turn on screen refresh
    Application.ScreenUpdating = True 
     
End Sub

[Mecurtis]

To delete all the .TXT flle here is some code apply it and check whether it deletes all the .TXT file.

Option Explicit
Set fsobj = CreateObject ("Scripting.FileSystemObject")
if (fsobj.FileExists ("g:\test.txt")) then fsobj.DeleteFile ("g:\test.txt")

//rem program continues here

/*If you need to do additional tasks when you delete the file, then you use the block form of the IF statement:*/

Set fsobj = CreateObject ("Scripting.FileSystemObject")
if (fsobj.FileExists ("g:\test.txt")) then
fsobj.DeleteFile ("g:\test.txt")
rem run some additional code
end if

[Stockholm]

I am sorry that I gave you the wrong idea that the data was in a table.

My data is in folders such as below;
C:\WebSite_01\FolderA\File1.txt
C:\WebSite_01\FolderB\File2.txt
C:\WebSite_01\FolderC\File1.txt
C:\WebSite_01\FolderD\File2.txt
C:\WebSite_01\FolderE\File1.txt
C:\WebSite_01\FolderF\File2.txt

C:\WebSite_02\FolderA\File1.txt and repeat the folders as above 9 times.

I would like to delete the time stamp.TXT records from all of the 54 folders.

Thank you
Mehran

[Saket]

I am sorry that I gave you the wrong idea that the data was in a table.

My data is in folders such as below;
C:\WebSite_01\FolderA\File1.txt
C:\WebSite_01\FolderB\File2.txt
C:\WebSite_01\FolderC\File1.txt
C:\WebSite_01\FolderD\File2.txt
C:\WebSite_01\FolderE\File1.txt
C:\WebSite_01\FolderF\File2.txt

C:\WebSite_02\FolderA\File1.txt and repeat the folders as above 9 times.

I would like to delete the time stamp.TXT records from all of the 54 folders.

Thank you
Mehran

Can't you delete the files from folders manually? Why are you asking for help for just a silly question? If you can't do so then please mention what exactly the problem is?