Not Defterinde VBS İle Karakter Saydırma Sorunu

[TRWE_2012]

Sayın Yönetİci

Çok garip bir şey oldu.Ubuntu da Nokia C6-01 cep telefonu sanki bir modem gibi davranmakta şu anda sanki modemden internette giriyorum gibiyim..Bunun sizce bir açıklaması varmıdır.?

Bu arada kodlar aşağıdadır.

Kod: Tümünü seç

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile("%USERPROFILE%\Desktop\.*.txt", ForReading)

strCharacters = objFile.ReadAll

Wscript.Echo Len(strCharacters)

strCharacters = Replace(strCharacters, vbCrLf, "")

strCharacters = Replace(strCharacters, " ", "")

Wscript.Echo Len(strCharacters)

objFile.Close

[velociraptor]

Const ForReading = 1

Set WshShell = WScript.CreateObject("Wscript.Shell")
vAPPDATA = WshShell.ExpandEnvironmentStrings("%USERPROFILE%\Desktop\")

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile( vAPPDATA & "test.txt", ForReading)

strCharacters = objFile.ReadAll

Wscript.Echo Len(strCharacters)

strCharacters = Replace(strCharacters, vbCrLf, "")

strCharacters = Replace(strCharacters, " ", "")

Wscript.Echo Len(strCharacters)

objFile.Close