- 博客(20)
- 资源 (1)
- 收藏
- 关注
原创 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 789
原创 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
原创 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 818
原创 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 593
原创 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 1147
原创 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 758
原创 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 480
原创 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 893
原创 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 371
原创 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 1074
原创 暴雨致长沙积水 公交车惨变“渡轮”
继5日晚长沙下了一场暴雨后,6日白天,又迎来了一场长达50分钟的暴雨。虽然在雨水的冲刷下,连日的高温有所缓解,但因这场突来的大暴雨来得过快、过猛,也让市民有些措手不及。长沙多个路段积水成河,甚至造成短暂的交通堵塞和行人无法过街的现象。 公交车惨变“游艇” 据潇湘晨报8月6日报导, “爹爹,快看,公交车都在水里游泳!”一个小孩朝着立交桥底层大喊。6日下午5点半,在袁家岭立交桥底层路段,成“凹”形的该路段积满了很深的积水,两侧滞留了大量过往车辆。 立交桥中层路段站满了市民,纷纷围观水中“奋勇前进
2010-08-08 19:39:00 2555
原创 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 795
原创 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 1042
原创 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 1290
原创 LIveWriter中使用插入代码块插件,出现意外错误
http://www.cnblogs.com/wangze/archive/2010/03/19/1689704.html
2010-08-08 16:40:00 274
原创 vbs 代码 :GetFileName
Rem : =========== 获得文件名,不包括路径部分Rem : =========== file 必须存在Function GetFileName( file ) If fso.fileexists(file)=False Then Err.Raise vbObjectError+128, "GetFileName", "File : " & file & " does not exist" Dim errMsg On Error Resume Next
2010-08-08 16:37:00 809
原创 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 618
原创 闲来无事,封装一些vbs代码。
闲来无事,封装一些vbs代码,功能简单,只是为了验证自己的一些想法。 个人认为:自定义的方法和功能应该具有苛刻的执行条件,目的是让使用者明确执行条件,当条件不满足弹出“错误对话框”以提醒使用者注意,避免出现所编写的程序既没有达到目的,有没有任何提示。当然在自定义的方法和功能中当不满足执行条件时要进行自定义的错误处理,弹出自定义的错误处理对话框。
2010-08-08 14:45:00 1090
原创 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 645
原创 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 1736
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人