VB & VBS
文章平均质量分 63
bj_wellcome
一只等待虫子飞过的青蛙
展开
-
VBS脚本:CopyFile
<br />2010-08-08<br /> <br />个人认为自己编写的代码执行条件越严格越好,并且竟可能对所有可能的情况进行错误处理<br /> <br />Rem : =========== 将文件 file 复制到文件夹 folder 中Rem : =========== file必须存在Rem : =========== folder必须存在Rem : =========== foler中不能存在与file同名的文件或文件夹Sub CopyFile( file,原创 2010-08-08 14:19:00 · 1740 阅读 · 0 评论 -
vbs脚本:CreateTextFile
Rem : =========== 创建文本文件Rem : =========== 不能有同名的文件或文件夹Rem : =========== 父文件夹必须存在Sub CreateTextFile( file ) Dim f f = Trim( file ) If Right(f,1) = "/" Then f = Left(f,Len(f) -1 ) If fso.fileexists(f) = True Or fso.folderexists(f) = Tr原创 2010-08-09 21:27:00 · 1149 阅读 · 0 评论 -
vbs脚本:CreateFolder
Rem : =========== 创建文件夹Rem : =========== 不能有同名的文件或文件夹Rem : =========== 父文件夹必须存在Sub CreateFolder( folder ) Dim f f = Trim( folder ) If Right(f,1) = "/" Then f = Left(f,Len(f) -1 ) If fso.fileexists(f) = True Or fso.folderexists(f) = T原创 2010-08-09 21:16:00 · 761 阅读 · 0 评论 -
vbs脚本:AppendLine
Rem : =========== 追加单行文本,文件不存在创建文件Rem : =========== 文件必须存在Rem : =========== line 中可以是单行,也可以是多行文本,Sub AppendLine( file, line ) Dim f f = Trim( file ) If Right(f,1) = "/" Then f = Left(f,Len(f) -1 ) If fso.fileexists(f) = False Then Er原创 2010-08-09 22:11:00 · 822 阅读 · 0 评论 -
vbs脚本:WriteText
Rem : =========== 写入多行文本,会覆盖文件中已有的内容Rem : =========== 文件必须存在Rem : =========== text 中可以是单行,也可以是多行文本,Sub WriteText( file, text ) Dim f f = Trim( file ) If Right(f,1) = "/" Then f = Left(f,Len(f) -1 ) If fso.fileexists(f) = False Then E原创 2010-08-09 22:00:00 · 595 阅读 · 0 评论 -
vbs脚本:文件操作.vbs
'全局对象 Set fso=createobject("scripting.filesystemobject") Set shell = CreateObject ("Wscript.Shell")Rem : =========== 启动主程序 Dim starttime , Endtimestarttime = Now WriteLog vbNullStringWriteLog "========================================"原创 2010-08-09 22:28:00 · 791 阅读 · 0 评论 -
vbs脚本:RenameFolder
Rem : =========== 将文件加 folder 重新命名,路径不变,名称为 newFolderRem : =========== folder 必须存在Rem : =========== newName 只能是文件夹名称,不能包含路径信息Rem : =========== newName 不能是 folder 所在目录中已有的文件或文件夹 Sub RenameFolder( folder, newName ) If fso.FolderExists(fo原创 2010-08-09 00:14:00 · 485 阅读 · 0 评论 -
vbs脚本:RenameFile
Rem : =========== 将文件 file 重新命名,路径不变,名称为 newNameRem : =========== file 必须存在Rem : =========== newName 只能是文件名,不能包含目录信息Rem : =========== newName 不能是 file 所在目录中已有的文件或文件夹 Sub RenameFile( file, newName ) If fso.fileexists(file) = false Then原创 2010-08-08 23:40:00 · 894 阅读 · 0 评论 -
vbs脚本:MoveFolder
Rem : =========== 将文件夹 folder1 移动到文件夹 folder2 中Rem : =========== folder1必须存在Rem : =========== folder2必须存在且属性不能为只读Rem : =========== foler2中不能存在与folder1同名的文件或文件夹Sub MoveFolder( folder1, folder2 ) Dim f1, f2 f1 = folder1 f2 = folder2原创 2010-08-08 22:06:00 · 373 阅读 · 0 评论 -
vbs脚本:MoveFile
Rem : =========== 将文件 file 移动到文件夹 folder 中,相当于剪切操作Rem : =========== file必须存在Rem : =========== folder必须存在且属性不能为只读Rem : =========== foler中不能存在与file同名的文件或文件夹Sub MoveFile( file, folder ) Dim f1, f2 f1 = file f2 = folder If Right(f1原创 2010-08-08 20:14:00 · 1077 阅读 · 0 评论 -
vbs脚本:DeleteFolder
Rem : =========== 删除文件夹,不管是否为空Rem : =========== 文件夹必须存在Sub DeleteFolder( folder ) Dim f1 f1 = folder If Right(folder,1) = "/" Then f1 = Left(folder,Len(folder) -1 ) If fso.folderexists(f1)=False Then Err.Raise vbObjectError+128, "DeleteF原创 2010-08-08 19:08:00 · 797 阅读 · 0 评论 -
vbs 脚本:CopyFile
Rem : =========== 将文件 file 复制到文件夹 folder 中Rem : =========== file必须存在Rem : =========== folder必须存在且属性不能为只读Rem : =========== foler中不能存在与file同名的文件或文件夹Sub CopyFile( file, folder ) Dim f1, f2 f1 = file f2 = folder If Right(f1,1) = "/"原创 2010-08-08 18:37:00 · 1045 阅读 · 0 评论 -
vbs脚本:CopyFolder
Rem : =========== 将文件夹 folder1 复制到文件夹 folder2 中Rem : =========== folder1必须存在Rem : =========== folder2必须存在且属性不能为只读Rem : =========== foler2中不能存在与folder1同名的文件或文件夹Sub CopyFolder( folder1, folder2 ) Dim f1, f2 f1 = folder1 f2 = folder2原创 2010-08-08 17:59:00 · 1294 阅读 · 0 评论 -
闲来无事,封装一些vbs代码。
闲来无事,封装一些vbs代码,功能简单,只是为了验证自己的一些想法。 个人认为:自定义的方法和功能应该具有苛刻的执行条件,目的是让使用者明确执行条件,当条件不满足弹出“错误对话框”以提醒使用者注意,避免出现所编写的程序既没有达到目的,有没有任何提示。当然在自定义的方法和功能中当不满足执行条件时要进行自定义的错误处理,弹出自定义的错误处理对话框。原创 2010-08-08 14:45:00 · 1092 阅读 · 0 评论 -
vbs脚本 : CopyFile
Rem : =========== 将文件 file 复制到文件夹 folder 中Rem : =========== file必须存在Rem : =========== folder必须存在Rem : =========== foler中不能存在与file同名的文件或文件夹Sub CopyFile( file, folder ) If fso.fileexists(file)=False Then Err.Raise vbObjectError+128, "Cop原创 2010-08-08 15:34:00 · 622 阅读 · 0 评论 -
VBS脚本:GetFileName
<br />Rem : =========== 获得文件名,不包括路径部分Rem : =========== file 必须存在Function GetFileName( file ) If fso.fileexists(file)=False Then Err.Raise vbObjectError+1, "GetFileName", "File : " & file & " does not exist" Exit Function End If GetFileN原创 2010-08-08 14:35:00 · 652 阅读 · 0 评论 -
vbs脚本:ExplorerSel
Rem : =========== 打开浏览器,选中指定文件或文件夹Rem : =========== 文件或文件夹必须存在Sub ExplorerSel(path) Dim f f = Trim( path ) If Right(f,1) = "/" Then f = Left(f,Len(f) -1 ) If fso.fileexists(f) = False And fso.folderexists(f) = False Then Err.Raise vbObje原创 2010-08-09 22:22:00 · 355 阅读 · 0 评论