用fso怎样给文件加上隐藏

Set fso = Server.CreateObject("scripting.filesystemobject") 
set f=fso.Getfile("//./" & Server.MapPath("/myfile.jpg"))
f.Attributes=1+2+4

, , , , ,

继续阅读

常见组件的注册与反注册

据需要不同我们经常会卸载和安装Wscript.Shell，FSO，stream等对象，下在我说一下如何卸载和安装Wscript.Shell,FSO和stream对象
1、卸载wscript.shell对象
在cmd下运行：regsvr32 WSHom.Ocx /u
2、卸载FSO对象
在cmd下运行：regsvr32.exe scrrun.dll /u
3、卸载stream对象
在cmd下运行：
regsvr32 /s /u “C:\Program Files\Common Files\System\ado\msado15.dll”

, , , , ,

继续阅读

ASP创建无限子目录的方法函数

'我在VBS上做了调试没问题，如果存在会跳过不会对文件造成损害，顺便鄙视一下华夏名网上写的那个垃圾函数
'直是误人子弟。'就这么小个问题还需要一大篇代码，对于自动创建子目录还有个方法哦，就是DOS下用xcopy方法

mkdir_ "C:\qq\cc2\c\"      '调用很简单吧，目录名请不要包含特殊字符，否则意外自负。
Function mkdir_(byval path)
	Dim p,fso,nowpath
	Set fso = CreateObject("scripting.filesystemobject")
	p=Split(path,"\"):nowpath=p(0) & "\"
	For i=1 To ubound(p)
		nowpath=nowpath & p(i) & "\"
		If Not fso.FolderExists(nowpath) Then
		fso.CreateFolder(nowpath)
		End If
	Next
	Set fso=Nothing
End Function

, , ,

继续阅读

利用wmi删除特殊文件夹

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
Set colFolders = objWMIService. _
    ExecQuery("Select * from Win32_Directory Where Name = 'C:\\Ken\'s Scripts'")
 
For Each objFolder in colFolders
    errResults = objFolder.Delete
Next

, , , , ,

继续阅读

删除过期文件的vbs脚本

技术含量不高，其实windows自带的搜索比这个强。主要是学习fso的用法，如果你能背着写完那以后不用看这方面的了，呵呵。

, , , , , ,

继续阅读

自动扫描特殊文件夹脚本也可以删除特殊文件夹

这个脚本仅在win2003上测试通过，功能是扫描所有文件夹，如果有那种带小数点的特殊文件夹，给予提示并且可删除，比较方便，对于十分顽固的文件，删除用“冰刃IceSword ”试试吧。

, , , ,

继续阅读

使用vbs脚本下载文件并支持断点续传

这篇文章是转的，如果你喜欢脚本可一定要看哦，并学会，用到了fso,stream,xmlhttp,wscript
这个程序演示了怎样去断点续传下载一个文件。并显示进度

, , , , , ,

继续阅读

WshShell.run 函数的参数和用法

set WshShell= CreateObject("Wscript.Shell")
errCode = WshShell.run ("notepad.exe",1,True)

　　run函数有三个参数，第一个参数是你要执行的程序的路径，若路径中存在空格，如 “”"C:\Program Files\QQ2006\QQ.exe”"”  ‘注：三个引号，第二个程序是窗口的形式，0是在后台运行；1表示正常运行；2表示激活程序并且显示为最小化；3表示激活程序并且显示为最大化；一共有10个这样的参数如下表。 第三个参数是表示这个脚本是等待还是继续执行，如果设为了true,脚本就会等待调用的程序退出后再向后执行。
其实，run做为函数，前面还有一个接受返回值的变量，一般来说如果返回为0，表示成功执行，如果不为0，则这个返回值就是错误代码，可以通过这个代码找出相应的错误，你把运行的exe换成vbs就知道后面这个的意思了
　　窗口打开代码见内页，有10种。

, ,

继续阅读

VBS遍历所有目录，递归列出所有子目录

很简单也很经典递归，我现在需要这个功能，以树状列出指定目录的所有文件夹，当然包括子文件夹，最新加上了列出当前目录所有文件功能。
其实我的本意是想扫描磁盘里的特殊文件夹或文件，也就是说文件名有特殊符号的，但是subfolders集合中不会把特殊文件夹列出来，郁闷
暂没其他法想通过剪切测试法，不知道你有什么好办法，请告诉我。
代码片段 ： 详细见内页
Dim fso,level,StartPath,nFold,nFile
Set fso = CreateObject("scripting.filesystemobject")
StartPath= "E:\websoft" : level=0 : nFold=0 :nFile=0
Call getallfolder(StartPath)
Call getallfile(StartPath)
WScript.Echo "文件夹：" & nFold
WScript.Echo "文件数：" & nFile

, , , ,

继续阅读

使用VBS开通MySQL数据库的脚本

1
2
3
4
5
6
7
8
9
10
11
12
13
14

'先设置ROOT账号的密码，需要管理员权限。
const mysqladminpwd = "wwww1111"
'调用方法 Call  createMysql("数据库名","密码")
'/* 以超管理员模式，创建MySQL 主程序开始
Function createMysql(dbname,passwd)
MySQLcmd = "create database " & dbname & ";"
MySQLcmd = MySQLcmd & "grant all privileges on "&dbname&".* to "&dbname&"@'%.%.%.%' identified by '" & passwd & "'; "
MySQLcmd = MySQLcmd & "flush privileges;"
createMysql = False
Set oshell = CreateObject("Wscript.shell")
Mbin = MysqlExPath & " -uroot -p" & mysqladminpwd & " -e""" & MySQLcmd & """"
If oshell.run(Mbin, 0, True) = 0 Then  createMysql = True
Set oshell = Nothing
End Function

, , , , ,

继续阅读

页码 1 / 212