如何用BAT VBS把某文件夹中的终极子目录移动到第2级或者第三级目录下
代码来了哦!VBS代码来的:On Error Resume NextDim FSO,I,WdPos,Folder,Fol,FolName,FN,NFolFolder="这里输入文件夹路径"'输入文件夹路径↑Set FSO=WScript.CreateObject("Scripting.FileSystemObject")Folder=FSO.GetFolder(Folder).PathIf FSO.FolderExists(Folder)True Then MsgBox "文件夹" & Folder & "不存在!",16,"错误" WScript.QuitEnd IfWdPos=1For I=1 To 2 '文件夹级数(从文件夹所在驱动器开始算第一级) WdPos=InStr(WdPos+1,Folder,"\")NextFol=Mid(Folder,1,WdPos)If Right(Fol,1)"\" Then Fol=Fol & "\"'保证文件夹名合法FolName=FSO.GetFolder(Folder).NameFN=FolNameI=0Do Until Not FSO.FolderExists(Fol & FolName) I=I+1 FolName=FN & "_" & ILoop'loopNFol=Fol & FolNameFSO.CreateFolder NFol'//Dim vFile,vFolFor Each vFile In FSO.GetFolder(Folder).Files FSO.CopyFile vFile.Path,NFol & "\"Next'复制文件For Each vFol In FSO.GetFolder(Folder).SubFolders FSO.CopyFolder vFol.Path,NFol & "\"Next'复制文件夹FSO.DeleteFolder FolderMsgBox "成功!",64,"提示"
fol lol the doh fol the day 是一首歌里间奏里唱的 然后我查了应该是ha
歌曲名:Harry's Game
歌手:Celtic Woman
专辑:Celtic Woman
Imtheochaidh soir is siar
A dtainig ariamh
An ghealach is an ghrian
Fol lol the doh fol the day
Fol the day fol the day
Imtheochaidh an ghealach’s an ghrian
An Daoine og is a chail ’na dhiadh
Fol lol the doh fol the day
Fol the day fol the day
Fol lol the doh fol the day
Fol the day fol the day
Imtheochaidh a dtainig ariamh
an duine og is a chail ne dhiadh
Fol lol the doh fol the day
Fol the day fol the day
