.TXT files deletion from local folder using VBA Macros "KILL"

[maleodillet]

Hi Gurus,


I am using VBA to generarte a .TXT file that gets picked up by a SAP process chain. The Code works well, the problem I have is that I have to be able to delete the file once I am done running the process chain but I am being unsuccessful.


So far I'm just trying to put together the routine that I would later insert into my main code but is is not working for me. What I am trying to achieve is to loop the routine to delete all the .TXT files sitting in the folder path, the code as follows;




Public Sub KillPromtFile()


Dim TxtFile As String
Dim FileFolder As String
Dim PathFolderl As String


TxtFile = Environ$("USERPROFILE") & "\Desktop\*.TXT"
FileFolder = Dir$(Environ$("USERPROFILE") & "\Desktop\*.TXT")
PathFolder = Environ$("USERPROFILE") & "\Desktop"


Do While FileFolder <> ""
Kill PathFl & FileFolder
FileFolder = Dir$(Environ$("USERPROFILE") & "\Desktop\*.TXT")
Loop
End Sub


I am not a VBA ninja so please excuse the extra declared variables...any help would be deeply appreciate it. Thanks in Advance

 

[Fluff]

Try

Sub KillPromtFile()
   Dim Fname As String
   Dim Pth As String
   
   Pth = Environ("userprofile") & "\Desktop\"
   Fname = Dir(Pth & "*.txt")
   Do While Fname <> ""
      Kill Pth & Fname
      Fname = Dir()
   Loop
End Sub

 

[maleodillet]

Thanks a lot man! it worked

 

[Domenic]

Also, the Kill statement accepts wildcards. So if the intent is to delete all .txt files at the end of your process, you can delete them all at once...

Kill [COLOR=#333333]Environ("userprofile") & "\Desktop\*.txt"[/COLOR]

Hope this helps!