[英]Translating batch to script (Windows)
腳本編寫完全陌生,它試圖將一個批處理腳本翻譯成一個腳本。
批處理零件已注釋。 我試圖將一個目錄中所有單獨的文件上移一個目錄,刪除空目錄。
任何幫助將不勝感激。
這是我的代碼:
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
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.