vbs脚本:CreateFolder
- 博客分类：
- 技术杂绘
vbs脚本:CreateFolder
2010年08月09日
Rem : =========== 创建文件夹 Rem : =========== 不能有同名的文件或文件夹 Rem : =========== 父文件夹必须存在 Sub CreateFolder( folder ) Dim f f = Trim( folder ) IfRight(f,1) = "\" Then f = Left(f,Len(f) -1 )If fso.fileexists(f) = True Or fso.folderexists(f) = True ThenErr.Raise vbObjectError+128, "CreateFolder", f & " already exists" If fso.folderexists(fso.GetParentFolderName(f)) = False ThenErr.Raise vbObjectError+128, "CreateFolder", fso.GetParentFolderName(f) & " does not exists" Dim errMsg OnError Resume NextRem ====== code begin fso.CreateFolder f Rem ====== code endIfErr.Number 0 Then errMsg = Err.Description OnError Goto 0 Err.Raise vbObjectError+128, "CreateFolder", errMsg & vbNewLine & _ " folder:" & vbTab & folderExitSubEndIfEndSub
分享到：
发表评论
-
vbs脚本:WriteText
2012-01-20 02:17 636vbs脚本:WriteText 2010年08月09日 ... -
VBS脚本:CopyFile
2012-01-20 02:16 738VBS脚本:CopyFile 2010年08月08日 2 ... -
vbs 脚本:CopyFile
2012-01-20 02:16 359vbs 脚本:CopyFile 2010年08月08日 ... -
vbs脚本:MoveFile
2012-01-20 02:16 613vbs脚本:MoveFile 2010年08月08日 R ... -
中华帝国:兴于礼,覆于礼(下)礼制之下的朝臣
2012-01-19 10:06 588中华帝国:兴于礼,覆于 ... -
中国古代漆器源流
2012-01-19 10:06 519中国古代漆器源流 2011年07月21日 用漆涂在各种 ... -
中国古代建筑模拟题
2012-01-19 10:06 528中国古代建筑模拟题 2011年10月24日 1、单项选择 ... -
中古史研究的新视角:礼制、宗教与民间社会
2012-01-19 10:06 575中古史研究的新视角:礼 ... -
礼制”思想的阐述
2012-01-19 10:06 536礼制”思想的阐述 2010 ... -
windows编程经典书籍
2012-01-17 02:47 670windows编程经典书籍 2011年07月04日 [转 ... -
转: Boost下载安装编译配置使用指南(含Windows和Linux)
2012-01-17 02:47 639转: Boost下载安装编译配 ... -
搭建Windows下的Android开发环境
2012-01-17 02:47 736搭建Windows下的Android开发环境 2011年07 ... -
升级android sdk碰到的不能重命名文件夹错误
2012-01-17 02:47 1704升级android sdk碰到的不能重命名文件夹错误 201 ... -
Android 2.3 sdk 在 Ubuntu Karmic (9.04) 上的问题
2012-01-17 02:47 631Android 2.3 sdk 在 Ubuntu Karmic ... -
越南攻略
2012-01-15 22:22 580越南攻略 2010年07月02日 ... -
越南签证、柬埔寨签证价格表
2012-01-15 22:22 641越南签证、柬埔寨签证价格表 2011年03月31日 20 ... -
越南旅游
2012-01-15 22:22 590越南旅游 2009年11月17日 a.越南驻中国大使馆： ... -
中国驻各国大使馆电话及地址
2012-01-15 22:21 581中国驻各国大使馆电话及地址 2009年08月13日 ...
相关推荐
先检查是否已经存在该目录了，如果存在，则不做任何处理，如果不存在则创建...‘页面名称: CreateFolder.asp ‘页面功能: 生成n层目录的文件夹 ‘使用方法: 调用CheckFolder()函数,例如: CheckFolder(path) ‘传入参数:
UpLoadImg+CreateFolder
主要介绍了VBS递归创建多级目录文件夹的方法，主要使用的是vbs fso的GetParentFolderName与CreateFolder函数,需要的朋友可以参考下
function createFolder ( ) { OnedriveApp . init ( PropertiesService . getScriptProperties ( ) ) . creatFolder ( "SampleFolder" ) ;}function uploadFile ( ) { var id = DriveApp . getFilesByName ...
EXE文件，可以快速建立多层级文件夹，对于运维人员建立更新包中的目录很有帮助，减少自己手动创建目录导致的错误。
gatsby-source-dropbox 用于从Dropbox帐户获取数据的源插件。 如果要使用包含图像的Markdown文件，则还需要安装 安装 npm install --save gatsby-source-dropbox 如何使用 配置插件 ... createFolder
oFso.CreateFolder FilePath End If Response.Write "<script language='javascript'>alert('新建文件夹或文本文件成功！');window.close();</script>" End Sub '编辑文件 Sub Edit(ByVal Fname) If Not Is...
(1)、CreateFolder.py(创建文件夹--九校联盟) (2)、InternetConnect.py(网络连接) (3)、GetDictionaryData.py(获取相关词典数据) (4)、GetPlanInfo.py(获取招生计划数据) (5)、GetScoreInfo.py(获取录取分数数据) (6...
function createFolder($path) { if (!file_exists($path)) { createFolder(dirname($path)); mkdir($path, 0777); } } createFolder(“2007/3/4”);//在当前目录下创建2007/3/4的目录结构． 您可能感兴趣的...
createfile,getfilename,createfolder,getfoldername,fileexists,opentextfile,copyfile,copyfolder,movefile,folderexists,movefolder,deletefile,deletefolder
(1)、CreateFolder.py(创建文件夹--九校联盟) (2)、InternetConnect.py(网络连接) (3)、GetDictionaryData.py(获取相关词典数据) (4)、GetPlanInfo.py(获取招生计划数据) (5)、GetScoreInfo.py(获取录取分数数据) (6...
<% ‘创建多级目录，可以创建不存在的根...Dim objFSO, PhCreateFolder, CreateFolderArray, CreateFolder Dim i, ii, CreateFolderSub, PhCreateFolderSub, BlInfo BlInfo = False CreateFolder
1.CreateFolder在指定的位置创建一个文件夹 2.DeleteFolder把一个文件夹从指定的位置删除 3.CurrentDirectory返回当前的驱动器和目录 4.Currentdrive返回当前的驱动器 5.Change...
VB磁盘碎片整理-分类整理磁盘文件，这个源码中有很多FSO技巧，比如创建ManageFile文件夹、创建FSO对象，使用FSO对象的CreateFolder方法创建文件夹，创建ManageFile文件夹，根据系统的当前日期创建文件夹，创建当前...
开罗大学计算机与信息学院高级操作系统 (2009-2010) 作业 2 – 3CS 虚拟文件系统概述声明：假设...100 KB 预请求： 路径已存在此路径下尚未创建同名文件存在足够空间 CreateFolder root/folder1 该命令用于在“root”路
CreateFolder 方法; CreateTextFile 方法; Delete 方法; DeleteFile 方法; DeleteFolder 方法; DriveExists 方法; Exists 方法; FileExists 方法; FolderExists 方法; GetAbsolutePathName 方法; ...
$ client -> createFolder ( $ path ); //list a folder $ client -> listFolder ( $ path ); //get a temporary link $ client -> getTemporaryLink ( $ path ); 支持我们 我们投入了大量资源来创建。 您可以通过...
createFolder(nameFolder); 删除功能 删除一些文件 mkdir.deleteFiles('/my/folder/',['file.png', 'file2.png', 'file3.png'] ); 删除文件夹中的所有文件 mkdir.deleteFiles('/my/folder/'); 重命名一些文件 您...
CreateFolder App.Path & "\TEMP" '调过函数创建临时文件夹 EnableMenu '调用过程设置各菜单的可用状态 sngTime = 0 '设置录制时长为0(不限时长) strFileBMP = App.Path & "\TEMP\TMP.BMP" '保存的图片文件名 ...
易语言文件对象应用源码,文件对象应用,createfile,getfilename,createfolder,getfoldername,fileexists,opentextfile,copyfile,copyfolder,movefile,folderexists,movefolder,deletefile,deletefolder