平时我们在文件夹空白处右击，选择“新建”，可以选择新建不同类型的多种文件，但每次我们只能新建一个文件，而今天我要教大家一个系统增强的方法，可以让你一次新建多个不同类型的文件。
　　
　　第一步：在记事本中输入以下代码，并将它保存为后缀是“.vbs”的文件，如保存为“AnyType.vbs”，并假设保存在F:\Vbs\文件夹下。单引号后是注释语句，可以不输入，另外对于懒得自己输入代码的朋友，可从http://work.newhua.com/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