初次接觸VBS

2021-06-03 01:03:31 字數 1098 閱讀 2671

隨便找了段vbs程式,分析語句
on error resume next
//使程式按照產生錯誤的語句之後的語句繼續執行,具體見

dim sourcepath

dim numb

/dim應該是定義變數吧,猜得
set初始化變數

sub filew '寫檔案

dim fso, myfile

set fso = createobject("scripting.filesystemobject")

set myfile = fso.createtextfile("c:\2.txt", true)

myfile.writeline("yes")

myfile.close

set myfile = fso.getfile("c:\2.txt")

'myfile.delete

end sub

sub ***   跟 end sub 組成乙個函式
sub folderattributes(sourcepath)

dim fso, objfile

set fso = createobject("scripting.filesystemobject")

'呼叫getfile()返回file物件,通過file物件來訪問其下的屬性

set objfile = fso.getfile(sourcepath)

// 我需要的東西,獲取檔案資訊的方式~哈哈

msgbox "檔案大小:" & objfile.size

if objfile.size >= 100000 then '檔案大小需要準確判斷請自己來定

msgbox "yes"

filew

else

msgbox "false"

end if

end sub

sourcepath = "c:\1.txt"

call folderattributes(sourcepath)

//是不是有引數的函式,在呼叫的時候要用call?沒引數的,直接用函式名?

初次接觸perl

今天貝在煩乙個程式,也為難他了,剛學perl不到兩天,就讓他寫程式完成功能,雖然現在他有很大的提高,但是也還是心裡沒底啊。第一次布置的任務,他說如果不完成還是挺不好的,呵呵,沒辦法,我就樂於助人,趕緊看了看perl的大概語法,變數迴圈等,然後找了相關的網頁看了看,還好,因為比較熟悉c語言,而且上過s...

初次接觸powershell

在linux下接觸shell後,發現shell的功能是如此的強大!window呢?同樣,學習了 nix的做法,實現了shell,稱為powershell,在我看來,這個名字取得不過份,它通過。net與shell的結合,提供了強大的平台操作功能,提供了與 nix的相同的命令的語法,令 nix的程式設計...

初次接觸WinDriver

今天,第一次應用windriver,用來寫pcie驅動。為了以後對pcie測試和除錯方便,需要對windriver生成的源程式進行改動。主要是生成乙個除錯視窗。而windriver用的是的c語言printf語句來提示後續操作。是個cmd下出現的視窗。檢視資料,了解c語言不能直接使用dlg。我使用wi...