将批处理转换为脚本(Windows)
全新的脚本,尝试将一段批处理脚本转换为脚本 批处理零件已注释。我试图将一个目录中单独存在的所有文件向上移动一个目录,删除空目录 任何帮助都将不胜感激 这是我的密码:将批处理转换为脚本(Windows),windows,batch-file,vbscript,Windows,Batch File,Vbscript,全新的脚本,尝试将一段批处理脚本转换为脚本 批处理零件已注释。我试图将一个目录中单独存在的所有文件向上移动一个目录,删除空目录 任何帮助都将不胜感激 这是我的密码: strDir = "j:\" set FSO = createobject("Scripting.FileSystemObject") Set objDir = FSO.GetFolder(strDir) getInfo objDir Sub getInfo(pCurrentDir) For Each aItem In
strDir = "j:\"
set FSO = createobject("Scripting.FileSystemObject")
Set objDir = FSO.GetFolder(strDir)
getInfo objDir
Sub getInfo(pCurrentDir)
For Each aItem In pCurrentDir.SubFolders
getInfo aItem
Next
if pCurrentDir.Files.Count = 1 then
if pCurrentDir.Subfolders.Count = 0 then
' Move all files inside the subdirectory up one level.
move /s %%d\*.* %%d\..\.
' Delete the directory
RD /y %%d
end if
end if
End Sub
strDir = "j:\"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objDir = FSO.GetFolder(strDir)
getInfo objDir
Sub getInfo(pCurrentDir)
WScript.Echo pCurrentDir
For Each aItem In pCurrentDir.SubFolders
getInfo aItem
Next
If pCurrentDir.Files.Count = 1 Then
If pCurrentDir.Subfolders.Count = 0 Then
' Move all files inside the subdirectory up one level.
For Each f In FSO.GetFolder(pCurrentDir).Files
f.Move f.ParentFolder.ParentFolder & "\"
Next
' Delete the directory
FSO.DeleteFolder pCurrentDir,True
End If
End If
End Sub