vbs设置文件夹权限

Sub create(fso,path)

If fso.FolderExists(path) Then

Exit Sub

End If

If Not fso.FolderExists(fso.GetParentFolderName(path)) Then

create fso,fso.GetParentFolderName(path)

End If

fso.CreateFolder(path)

End Sub

Set fso = CreateObject("scripting.filesystemobject"槐坦)

create fso,"c:/a/a/迅明好a/a/a/a/a/"亩铅

set fso = Nothing

VBS的movefolder不支持跨仿族盘转移 *** 作，只支持同盘间的山漏文件或文件夹转移,所以你可以先复备唯弊制，再删除你可以试试：set f=wscript.createobject("scripting.filesystemobject")

f.copyfolder "c:\ywt","d:\"

f.GetFolder("c:\ywt").Delete(True)

我在我的机器耐闷轿上试了，可以用的（罩携我把cpp改为MP3，把L改为g）。只不过只能“one by one”显示出来。要害的我，按昌肆住ESC键好几分钟了，能跟网上那个写入文本的脚步代码结合起来，就非常非常实用了。回来，我改造下

---