|
对于网站设计者而言时常处理大批量的文件是难免的特别是图片和一些文本文本文件更是经常处理而由于网站大量文件的关系对于同类型文件的命名往往就直接采用带有一定规律的递增数字来作为文件名比如我们常见的图片文件的命名就时常采用jpgjpg这种方式这样的好处是文件名不会重复容易管理这里我们专门介绍一种简单易行的方法来实现对任意文件夹下的所有文件进行批量改名当然改名以后的文件名是根据网站设计者的需要按照数字进行递增的我们使用ASP来实现以上功能需要注意的是因为设计到文件操作使用FileSystemObject对象所以该功能的实现要在具有文件操作权限的网站进行一般的虚拟注意考虑到安全要求可能不会给予文件存在权限这是我们首先需要注意的另外在下面的程序中我们将操作指定文件夹strFromDir中的所有文件只要是这个文件夹中的文件无论文件类型如何程序都会对其进行文件改名操作当然文件类型是不会进行改变的改名以后的文件将不在保存在原文件夹而是移动到新的文件夹strTargetDir注意我们这里是移动不是拷贝所以进行操作以后原文件夹中所有的文件都将不存在程序很好的利用了FileSystemObject对象提供的各种属性和特征实现的时候简单明了使用其他语言编程的朋友可能会感受深刻现在我们就来看功能实现代码＜% @LANGUAGE = VBSCRIPT %＞＜%Option Explicit%＞＜%以下程序批量改名文件夹中的文件名并将所有文件移动到新的文件夹ResponseWrite ＜html＞ & VbCrLf & ＜head＞ & VbCrLfResponseWrite ＜title＞批量文件改名＜/title＞ & VbCrLfResponseWrite ＜/head＞ & VbCrLf & ＜body＞ & VbCrLf 变量说明Dim gbolGoProcedureDim strFromDir 源文件夹Dim strTargetDir 目标文件夹Dim objFSDim objRootFolderDim objFileDim strFileNameLenDim strPrevFileNameDim strFileExt 文件扩展名Dim strFileNameCountDim strNewFileNameDim strRealCount 处理的文件数量gbolGoProcedure = False 如果点击了开始按钮进行以下处理If (RequestForm(GoButton)) = 开 始 then 指定源文件夹目标文件夹strFromDir = D:test\strTargetDir = D:\test\ 将处理文件数量设置为strRealCount = Set objFS = ServerCreateObject(ScriptingFileSystemObject)Set objRootFolder = objFSGetFolder(strTargetDir)文件名的具体设置这里设置为表明文件名将从开始逐步递增可以根据需要设置strFileNameCount = For each objFile in objRootFolderFiles对于特定的文件不进行处理可以根据需要设置If objFileName = Thumbsdb then strFileNameCount = StrFileNameCount strFileNameCount = strFileNameCount + NextSet objRootFolder = objFSGetFolder(strFromDir)For each objFile in objRootFolderFilesstrFileNameLen = Len (objFileName)If Mid (objFileName(strFileNameLen )) = thenstrFileExt = right(objFileName )ElsestrFileExt = right(objFileName )End IfstrPrevFileName = objFileNamestrNewFileName = strFileNameCount & strFileExtobjFileMove strTargetDir & strNewFileNameResponseWrite 源文件: &strFromDir&strPrevFileName & ＞ 移动并改名为: &strTargetDir& strNewFileName & ＜br＞ & vbCrLFstrFileNameCount = strFileNameCount + strRealCount = strRealCount + NextResponseWrite ＜p＞＜b＞一共处理 & (strRealCount) & 个文件＜/B＞ & vbCrLfSet objRootFolder = NothingSet objFS = NothinggbolGoProcedure = TrueEnd IfIf gbolGoProcedure ThenResponseWrite(＜p＞＜b＞批量文件批量移动和改名＜/b＞) & vbCrLfElseResponseWrite(＜center＞＜br＞＜form method=post action=FileNameConverterasp ID=form name=form＞) & vbCrLfResponseWrite(＜input type=SUBMIT value= 开 始 ID=GoButton name=GoButton＞) & vbCrLfResponseWrite(＜/form＞) & vbCrLfResponseWrite(＜p＞＜b＞点击按钮对文件进行批量移动和改名＜/b＞＜/center＞) & VbCrLfEnd IfResponseWrite ＜/body＞ & VbCrLf & ＜/html＞%＞
|
