论坛 › 『 提问交流 』 › 还是关于畸形文件夹的讨论。

dtooboss 发表于 2010-4-10 20:23:48

还是关于畸形文件夹的讨论。

如果畸形文件夹没有短文件名该如何操作，以下贴出论坛上卫和谐的畸形文件夹创建脚本
我只是加了一行。使所有畸形文件夹都没有了短名称。#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

afan 发表于 2010-4-11 00:22:16

_RunDOS('fsutil file setshortname '&$jxfilename1&' ""')
dir /x 可正常显示短文件名 畸形目~1

dtooboss 发表于 2010-4-11 00:44:03

_RunDOS('fsutil file setshortname '&$jxfilename1&' ""')
dir /x 可正常显示短文件名 畸形目~1
afan 发表于 2010-4-11 00:22 http://www.autoitx.com/images/common/back.gif

afan 发表于 2010-4-11 00:49:08

dtooboss 发表于 2010-4-11 00:44 http://www.autoitx.com/images/common/back.gif
你win7以上?

dtooboss 发表于 2010-4-11 01:04:15

你不是ntfs?

afan 发表于 2010-4-11 01:05:39

我知道你不是FAT32

lxz 发表于 2010-4-11 07:57:36

路过学习....

rikthhpgf2005 发表于 2010-4-11 10:39:21

有意思,可以用来文件夹加密了

查看完整版本: 还是关于畸形文件夹的讨论。