以一当十,一次新建不同类型的多个文件

开篇：润墨网以专业的文秘视角，为您筛选了一篇以一当十,一次新建不同类型的多个文件范文，如需获取更多写作素材，在线客服老师一对一协助。欢迎您的阅读与分享！

平时我们在文件夹空白处右击，选择“新建”，可以选择新建不同类型的多种文件，但每次我们只能新建一个文件，而今天我要教大家一个系统增强的方法，可以让你一次新建多个不同类型的文件。

第一步：在记事本中输入以下代码，并将它保存为后缀是“.vbs”的文件，如保存为“AnyType.vbs”，并假设保存在F:\Vbs\文件夹下。单引号后是注释语句，可以不输入，另外对于懒得自己输入代码的朋友，可从/cfan/200721/AnyType.rar处下载这个脚本文件以及第2步中的注册表文件。

'检查参数的总数。

If WScript.Arguments.Count 1 Then

WScript.Quit()

End If

'获取起始目录的路径。

strBaseDir = Left(WScript.Arguments(0), InStrRev(WScript.Arguments(0), "\"))

strFilesLine = InputBox("请输入文件的名称和扩展名，每个文件之间请用分号隔开", "新建", "")

If strFilesLine = "" Then

WScript.Quit()

End If

DoCreate(strFilesLine)

Sub DoCreate(strNewFilesLine)

Set objShell = CreateObject("WScript.Shell")

Set objFSO = CreateObject("Scripting.FileSystemObject")

On Error Resume Next

arrayFiles = Split(strNewFilesLine, ";")

For Each strFile in arrayFiles

objFSO.CreateTextFile strBaseDir & strFile, False

Next

End Sub

第二步：将下面的内容保存为后缀是“.reg”的注册表文件，然后双击它，将数据导入注册表中。

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.atef]

@="AnyType_EggFile"

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.atef\ShellNew]

"Command"="\"F:\\Vbs\\AnyType.vbs\" \"%1\""

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\AnyType_EggFile]

@="各类文件"

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\AnyType_EggFile\DefaultIcon]

@="%SystemRoot%\\System32\\WScript.exe,2"

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\AnyType_EggFile\shell\open\command]

@="\"F:\\Vbs\\AnyType.vbs\" \"%1\""

经过上面的操作，在右键菜单的“新建”项中就会多出一个名为“各类文件”的项目（见图1），点击它后就会弹出一个对话框，我们只需要输入一个或多个想要创建的文件的名称和它的扩展名（文件名之间要用分号隔开，见图2），就能快速地建立这些类型的文件了。

图1

图2