如果畸形文件夹没有短文件名该如何操作，以下贴出论坛上卫和谐的畸形文件夹创建脚本
我只是加了一行。使所有畸形文件夹都没有了短名称。#include <Process.au3>
Global $name = "畸形目录"
Global $nameSplit = StringLeft($name, 3)
Global $jxfilename1 = $name & ".."
Global $jxfilename2 = $name & "../"
Global $jxfilepath = @ScriptDir & $jxfilename1
Global $shortname = @ScriptDir & $nameSplit & "~1"
Global $filepath = @ScriptDir & $name
;创建畸形文件夹
If MsgBox(8228, "畸形文件夹", "在当前目录下建立" & $name & "文件夹！是否现在建立? ") = 6 Then
_RunDOS("md " & $jxfilename1)
_RunDOS('fsutil file setshortname '&$jxfilename1&' ""')
Else
Exit
EndIf
;向畸形文件夹中复制文件
MsgBox(32, "注意", "复制path.ini")
_RunDOS("copy c:\path.ini " & $jxfilepath)
;打开畸形文件夹
_RunDOS("start " & $jxfilepath)
;重命畸形文件夹为正常文件夹名
MsgBox(32, "注意", "命名为正常文件夹名")
_RunDOS("ren " & $shortname & " " & $name)
;将正常文件夹重命名为畸形文件夹名
MsgBox(32, "注意", "命名为畸形文件夹名")
_RunDOS("ren " & $filepath & " " & '"' & $jxfilename2 & '"')
;删除畸形文件夹中的文件
MsgBox(32, "注意", "删除boot.ini")
_RunDOS("del /f /q " & $shortname & "\boot.ini")
;删除畸形文件夹
If MsgBox(8228, "畸形文件", "在当前目录下删除" & $name & "..文件！是否现在删除? ") = 6 Then
_RunDOS("rd /q /s " & $name & "..")
Else
Exit
EndIf
| 
|手机版|小黑屋|AUTOIT CN
( 鲁ICP备19019924号-1 )谷歌
百度
发表于 2010-4-10 20:23:48
发表于 2010-4-11 00:22:16
