首頁猿問 VBS中sub詳細用法。

VBS中sub詳細用法。

JavaScript

寶慕林4294392 2019-03-20 14:13:10

例如下面這個代碼sub是干什么的？謝謝代碼如下：subaddnewfolder(path,foldername)dim fso,f,fc,nfset fso = createobject("scripting.filesystemobject")set f = fso.getfolder(path)set fc = f.subfoldersif foldername <> "" thenset nf = fc.add(foldername)elseset nf = fc.add("new folder")end ifend sub順便解釋下，謝謝。

查看完整描述

2 回答

蝴蝶不菲

TA貢獻1810條經(jīng)驗獲得超4個贊

sub（子程序）：和function（函數(shù)）差不多，不過sub沒有返回值。
調(diào)用：計算機編或運行時，使用某個函數(shù)來完成相關(guān)命令。在程序中通過對函數(shù)的調(diào)用來執(zhí)行函數(shù)體，其過程與其它語言的子程序調(diào)用相似。
例：
sub a() '定義一個sub a()
dim b
b=1
msgbox b
end sub
call a()'調(diào)用sub a()

反對回復(fù) 2019-03-24

哆啦的時光機

TA貢獻1779條經(jīng)驗獲得超6個贊

Sub addnewfolder(path,foldername) '新建文件夾函數(shù)
Dim fso,f,fc,nf '定義變量
Set fso = CreateObject("scripting.filesystemobject") '插件fso對象
Set f = fso.getfolder(path) '取得path參數(shù)的文件夾對象
Set fc = f.SubFolders 'path參數(shù)文件夾下的子文件夾
If foldername <> "" Then '如果要創(chuàng)建的文件名存在
Set nf = fc.add(foldername) '在這個文件夾下創(chuàng)建新的文件夾
Else
Set nf = fc.add("new folder") '在這個文件夾下創(chuàng)名為new folder的文件夾
End If
End Sub

addnewfolder "d:\","我是新的文件夾" '在D盤新建一個名為我是新的文件夾的文件夾
addnewfolder "d:\123","我是新的文件夾" '在D盤123文件夾里新建一個名為我是新的文件夾的文件夾