bir txt dosyası olusturalım – silelim (vbs)



Asağidaki örnegimizde visual basic script kullanarak (vbs) deneme.txt diye bir dosya olusturacagiz , bunun için aşağıdaki kodlardan birini notepad e yapistirip Dosya – Farklı Kaydet… seçeneğine tıklayın

farkli_kaydet

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

farkli_kaydet2

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


Yorum Ekle

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Captcha