Açılan pencerede herhangi bir isim verin (dosya ismini istediğiniz şekilde düzenleyin ) ve uzantısı .vbs olarak kaydedip çalıştırın

Txt dosyasini olusturalim

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("deneme.txt")

yada

If err.number = 0 Then
   Set FSO = CreateObject("Scripting.FileSystemObject")
   FSO.CreateTextFile "deneme.TXT"
Else
End if

deneme.txt yerine başka bir isim verebilirsiniz

Txt dosyasini silelim

Set obj = CreateObject("Scripting.FileSystemObject")
'Calls the File System Object
obj.DeleteFile("deneme.txt") 'Deletes the file throught the DeleteFile function

Bir klasör içindeki tüm txt dosyalarini silelim:
deneme isimli bir klasörümüz olsun ve içindeki txt dosyalarini silmek isteyelim

Const DeleteReadOnly = True
Set obj = CreateObject("Scripting.FileSystemObject")
obj.DeleteFile("deneme\*.txt"),DeleteReadOnly

Velociraptor