❶ 保存扩展名为 .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、执行返回。