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


6 Yorum Var
  1. Avatar for Velociraptor
  2. Avatar for ömer taha
  3. Avatar for ömer taha
  4. Avatar for ömer taha
  5. Avatar for Velociraptor
  6. Avatar for ömer taha

Yorum Ekle

E-posta hesabınız yayımlanmayacak.

Captcha