Microsoft , bir süre önce anlam verilemez şekilde Vbs yi geliştirmeyi bıraktı ve yerine Powershell denen ve Vbs den daha ağır çalışıp bazı kısıtlamaları olan son kullanıcıya hemen hemen hiç hitap etmeyen

ilaveten komutları hiçbir programlama diline de uymayan tuhaf ve uyduruk bir tercih yaptı. Hatasını eninde sonunda anlayacağını düşünüyorum , daha öncesinde de Msn de internet explorer de ve EDGE de benzeri hatalar yapmıştı ve nihayetinde hepsini sonlandırma kararı almıştı. Herneyse konumuza dönecek olursak ; VBS de herhangi bir dosyaya birşey yazdırmak istediğimizde bunu kolayca yapabiliyoruz elbette yazdırma konusunda karşımıza aşağıdaki gibi seçenekler çıkacaktır ;

1. Dosyadaki tüm yazıları sildirip yeni bir cümle veya kelime yazdırmak
2. Dosyadaki mevcut yazılara ilave olarak İlk satıra birşeyler yazdıralım
3. Dosyadaki mevcut yazılara ilave olarak son satıra birşeyler yazdıralım

Aşağıdaki makalemizde üstteki seçeneklerin herbiri ayrı ayrı ele alınacaktır.

VBS ile Dosyadaki tüm yazıları silip yeni birşey yazdıralım

Elimizde "Test.txt"isminde bir dosya bulunsun ve içerisinde de bazı yazılar olsun , bunun içerisindeki herşeyi sildirtip, belirli bir cümle veya kelime yazdırmak istiyorsak aşağıdaki kodları kullanabiliriz.

Set objFSO=CreateObject("Scripting.FileSystemObject")

outFile="Test.txt"
Set objFile = objFSO.CreateTextFile(outFile,True)
objFile.Write "Deneme Yazısı" & vbCrLf
objFile.Close

Üstteki satırlarda değiştireceğiniz yerler ; Hangi dosya üzerinde işlem yapılacağını belirlediğimiz "Test.txt" ve ilgili dosyaya ne yazılacağını belirlediğimiz "Deneme Yazısı" kısımlarıdır. Script çalıştırıldığında Test.txt dosyasının içerisindekileri silerek "Deneme Yazısı" diye bir cümle yazacaktır.

Dosyadaki mevcut yazılara ilave olarak İlk satıra birşeyler yazdıralım

Bu örneğimizde Varolan bir dosyanın içerisindeki yazıları sildirtmeden mevcut yazıların ilk satırına birşeyler yazdıracağız bunun için aşağıdaki kodları kullanacağız.

Option Explicit

Const csFSpec = "sordum.net.txt"
Dim goFS : Set goFS = CreateObject("Scripting.FileSystemObject")
Dim sAll : sAll     = "ilk satıra yazma denemesi" & vbCrLf
If goFS.FileExists(csFSpec) Then sAll = sAll & goFS.OpenTextFile(csFSpec).ReadAll()
goFS.CreateTextFile(csFSpec).Write sAll

Üstteki kodlarda "sordum.net.txt" dosyası işlem yaptığımız dosyadır. "ilk satıra yazma denemesi" ise "sordum.net.txt" dosyasının içerisindeki yazıların ilk satırına yazdırdığımız cümledir. Elbetteki script aynı dizindeki dosyada işlem yapacak şekilde ayarlanmıştır.

Dosyadaki mevcut yazılara ilave olarak son satıra birşeyler yazdıralım

Busefer amacımız yine içerisinde yazılar bulunan bir dosyanın son satırına herhangi birşey yazdırmaktır. Üstteki örneğin aynısından devam edersek aşağıdaki kodları kullandığımızda

outFile= "sordum.net.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(outFile,8)
objFile.Write "Son satıra yazma denemesi" & vbCrLf
objFile.Close
Set Sh = Nothing

sordum.net.txt dosyasının içerisindeki yazılara ilaveten en son satıra "Son satıra yazma denemesi" diye bir cümle yazacaktır. Üstteki kodların hazır hallerini sayfa sonundaki indirme linkinde bulabilirsiniz.

- Vbs popup penceresi herzaman en üstte kalsın Burada

- Bir tıkla süper gizli dosya veya klasör oluşturalım Burada

- Bir tıkla Grafik kartı modelini ve Ram miktarını bulalım Burada

- Bir tıkla Sabit disk kullanım oranlarınızı görün Burada

- Powershell scriptlerini kısayol ile çalıştıralım Burada

- Vbs script ile Windows kilitlendiğinde sesi kapatalım Burada

- Bir txt dosyasına yazı yazalım yada silelim (vbs) Burada

- Vbs de sürükle bırak ile işlem yaptırmak Burada