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 01:33 629vbs脚本:WriteText 2010年08月09日 ... -
VBS脚本:CopyFile
2012-01-20 01:32 798VBS脚本:CopyFile 2010年08月08日 2 ... -
vbs 脚本:CopyFile
2012-01-20 01:32 876vbs 脚本:CopyFile 2010年08月08日 ... -
vbs脚本:MoveFile
2012-01-20 01:32 568vbs脚本:MoveFile 2010年08月08日 R ... -
2012.1.10
2012-01-19 09:23 5202012.1.10 2011年12月28日 10锛 -
Virtools:把Virtools文件封装到可执行文件中
2012-01-17 01:57 540Virtools:把Virtools文件封装到可执行文件中 ... -
MFC的运行机制
2012-01-17 01:57 647MFC的运行机制 2011年04月08日 在MFC程序中 ... -
MFC消息响应机制及映射机制理解
2012-01-17 01:57 619MFC消息响应机制及映射机制理解 2010年11月30日 ... -
编程基本
2012-01-17 01:57 438编程基本 2011年09月03日 繁 -
VS2010编译安装boost
2012-01-17 01:57 599VS2010编译安装boost 2011年01月18日 ... -
c库函数和系统调用的区别(很模糊)
2012-01-15 21:13 687c库函数和系统调用的区 ... -
linux C库函数(一)
2012-01-15 21:13 669linux C库函数(一) 2010年0 ... -
系统调用、POSIX、C库、系统命令和内核函数
2012-01-15 21:13 597系统调用、POSIX、C库、 ... -
ASP小偷(三):文档对象模型DOM
2012-01-15 21:13 866ASP小偷(三):文档对象模型DOM 2009年08月22日 ...
相关推荐
先检查是否已经存在该目录了,如果存在,则不做任何处理,如果不存在则创建...‘页面名称: 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