❶ 保存擴展名為 .VBS 文件,怎麼弄
首先，你在記事本那輸入了vbs的源碼，然後點擊記事本左上角的「文件」（第一個選項，在左上角！余雹左上角！！），然後跳出很多個選項，你就找「另存為」（從上到下第四個！第四個！！），然後看好咯。。。在輸入「文件名的」的下面有個「保存類型」，點一下它，彈出來兩個選項，你就選"所有文件"。。。好了，然後就要輸入文件名，本來的文件名是「文件名.txt」的，你就改成「文件名.vbs」，然後保存。。。懂不懂？？？ 其山稿實有個直接的方法。。。如果你的是win 7，就隨便打開一個文件夾，然後在文件夾的左上角找到「組織」，打開它，然後點擊「文件夾和搜索選項」，就會看到一個文件夾選項，在上面選第二項「查看」，好了，找到一個叫「隱藏已知文件類型的擴展名」，如果這選項前面打了√就把這個勾去掉，然後點下面的確定。。。。。行了，你在桌面隨便新建一個逗毀孝「文本文檔」，出現一個文件叫「新建文本文檔.txt」的文件，直接改名字，叫「新建文本文檔.vbs」。。。。看到圖標變成了一張廁紙沒？？牛都教上天了。。。。。。。。。。其實很簡單很簡單的！您試試·····
❷ 如何利用VBS將ACCESS2K的資料庫里指定的表自動保存為新的ACCESS2K資料庫。
寫定時器執行vba腳本就可以完成這動作
❸ vbs「保存/讀取」函數
PublicFunctionmkFile(ByValFile,ByValWrites,ByValModeExp)
OnErrorResumeNext
DimFso,sread
SetFso=CreateObject("scripting.filesystemobject")
IfModeExp=trueormodeexp=1Then
Iffso.fileexists(file)=falseThen
Fso.CreateTextFile(File).WriteWrites
ExitFunction
Else
sread=Fso.OpenTextFile(File).ReadAll
IfRight(sread,2)<>vbCrLfAndLen(sread)>0Thensread=sread&vbCrLf
Fso.CreateTextFile(File).WriteLinesread&Writes
EndIf
Else
Fso.CreateTextFile(File).WriteWrites
EndIf
setfso=nothing
EndFunction
functionreadfile(byvalfilename,byref斗悶戚line)
onerrorresumenext
dimfso,spt,lines
setfso=createobject("scripting.filesystemobject")
readfile=fso.opentextfile(filename).readall
iflen(readfile)>0thenspt=split(readfile,vbcrlf)elseexitfunction
ifline>0andisnumeric(line)=truethen
line=spt(line-1)
readfile=lines
else
line=ubound(spt)+1
endif
setfso=nothing
endfunction
'-----------------------------------
'文件函數分類
'readfile調用方法=readfile(文件名,行空陵罩好數[一般讀取全部為0即可])
'mkfile調用方法=mkfile(文件名,寫入字元串,是否追加字元串[1開啟/0關閉]),這里有一個特殊的小作用,就是可以在文本末尾添加字元串
'-----------------------------------
a=1
msgboxreadfile("123.txt",a)
msgboxa
a="記得加分,採納我"
mkfile"123.txt",a,1
a="321123"
mkfile"123.txt",a,1
❹ 如何保存VBS文件
你看看你的文件後面有沒有拓展名？比如×××.exe，×××.txt這些的。如果有，那麼你寫完vbs代碼態李後，保存，重命名這個文件，把後面的txt改為vbs就可以了。
如果你沒有看到拓展名，那麼你就隨便打開一個盤，在菜單上山源按【工具】-【文件夾選項】在出來的窗口按【查看】，找到【隱藏已知文件類型的拓展名】前面的勾去逗閉態掉，按【確定】，然後按前面我所說的方法操作即可。
vbs調用sql存儲過程如下：
1、建立對象。
2、資料庫鏈接connection對象。
3、要調用的存儲過程名稱。
4、設置command為調用存儲過程方式。
5、添加聲明變數。
6、設置聲明變數的值。
7、執行返回。