vbs随机搜索份文件,并剪切到指定目录九.docx

vbs随机搜索份文件,并剪切到指定目录 九 #39;声明变量 Dim searchPath #39;查找目录 Dim searchCount #39;抽取的个数 Dim rndArray() #39;存放随机数的数组 Dim numRange #39;存放总共的文件数 Dim allFilesDict #39;字典对象，用于存所有的文件 Dim fileIndex #39;文件索引，(第n个文件) Dim fs #39;filesystemobject Dim destinationPath #39;目标目录 #39;初始化变量 searchCount=20 #39;searchPath = quot;D:\fun\music\2006-2008quot; searchPath = quot;D:\tempquot; fileIndex = 0 set allFilesDict = CreateObject(quot;Scripting.Dictionaryquot;) destinationpath = quot;D:\fun\music\随机选的\quot; #