bj_wellcome-CSDN博客

原创 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 799

原创 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 363

原创 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 828

原创 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 603

原创 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 1166

原创 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 769

原创 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 495

原创 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 896

原创 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 376

原创 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 1089

原创暴雨致长沙积水公交车惨变“渡轮”

继5日晚长沙下了一场暴雨后，6日白天，又迎来了一场长达50分钟的暴雨。虽然在雨水的冲刷下，连日的高温有所缓解，但因这场突来的大暴雨来得过快、过猛，也让市民有些措手不及。长沙多个路段积水成河，甚至造成短暂的交通堵塞和行人无法过街的现象。公交车惨变“游艇” 据潇湘晨报8月6日报导， “爹爹，快看，公交车都在水里游泳！”一个小孩朝着立交桥底层大喊。6日下午5点半，在袁家岭立交桥底层路段，成“凹”形的该路段积满了很深的积水，两侧滞留了大量过往车辆。立交桥中层路段站满了市民，纷纷围观水中“奋勇前进

2010-08-08 19:39:00 2559

原创 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 800

原创 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 1064

原创 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 1298

原创 LIveWriter中使用插入代码块插件，出现意外错误

http://www.cnblogs.com/wangze/archive/2010/03/19/1689704.html

2010-08-08 16:40:00 280

原创 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 829

原创 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 630

原创闲来无事，封装一些vbs代码。

闲来无事，封装一些vbs代码，功能简单，只是为了验证自己的一些想法。个人认为：自定义的方法和功能应该具有苛刻的执行条件，目的是让使用者明确执行条件，当条件不满足弹出“错误对话框”以提醒使用者注意，避免出现所编写的程序既没有达到目的，有没有任何提示。当然在自定义的方法和功能中当不满足执行条件时要进行自定义的错误处理，弹出自定义的错误处理对话框。

2010-08-08 14:45:00 1101

原创 VBS脚本：GetFileName

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 659

原创 VBS脚本：CopyFile

2010-08-08 个人认为自己编写的代码执行条件越严格越好，并且竟可能对所有可能的情况进行错误处理 Rem : =========== 将文件 file 复制到文件夹 folder 中Rem : =========== file必须存在Rem : =========== folder必须存在Rem : =========== foler中不能存在与file同名的文件或文件夹Sub CopyFile( file,

2010-08-08 14:19:00 1754

StarFish的专栏