请教 调用winrar打包当前目录所有文件为rar问题？

qddoit

#AutoIt3Wrapper_icon=i.ico
;可自动添加zs.txt注释文件
$path = @ScriptDir
$count=0
$search = FileFindFirstFile($path & "\*.*")

$tempath = @TempDir

FileInstall("Rar.exe", $tempath & "\Rar.exe");压解文件
FileInstall("default.sfx", $tempath & "\default.sfx");压解文件

While 1
       
    $file = FileFindNextFile($search)
    If @error Then ExitLoop
        if $file<>@ScriptName and $file<>"zs.txt" Then
        $count=1+$count       
;~ FileCopy($file, @FavoritesDir & "\", 1)
$result = StringTrimright($file, 4)
;~ MsgBox(0, "String without leftmost 3 characters is:", $result)
;~ RunWait("C:\Program Files\WinRAR\winrar.exe a -ep "&$result&".rar "&@ScriptDir&"\"&$file&" -ibck -y -m0 -zzs.txt")
;~ RunWait(@ComSpec & ' /c @color a && '&$tempath&'\rar.exe a -r -ac -k -m5 -s -t '&$file&' -c -zzs.txt', @ScriptDir, @SW_SHOW)

FileDelete ( @ScriptDir&"\back.lst" )
FileWriteLine( @ScriptDir & "\back.lst",@ScriptDir & "\" & $file)

MsgBox(0, " Tips : ", $file,1)

;~      "C:\Program Files\WinRAR\WinRAR.exe" a -ep2 -ibck -zd:\Zs.txt d:\123 @d:back.lst
RunWait("C:\Program Files\WinRAR\winrar.exe a -ep2 -ibck -m0 -zzs.txt "&@ScriptDir&"\"&$result&" "&@ScriptDir&"\back.lst")

sleep("1000")

;~ TrayTip( "RAR批量打包加注释程序 提示您~", "正在打包第"&$count&"个",3)
;~ Sleep(100)

EndIf

WEnd

;~ While 1

;~ TrayTip( "RAR批量打包加注释程序 提示您~", "共打包"&$count&"个",3)
;~ sleep(30000)

;~ WEnd

本人菜鸟。。。初学。。想用autoit自动打包指定目录的文件。

现在的问题是有的文件名称中有空格的 就不行了，winrar命令行把空格拆分了

请高手赐教~

maxkingmax

有空格的路径用引号

或者用FileGetShortName 函数将长路径变成短路径后再试！

qddoit

RunWait("C:\Program Files\WinRAR\winrar.exe a -ep2 -ibck -m0 -zzs.txt "&@ScriptDir&"\"&$result&" "&@ScriptDir&"\back.lst")

"&@ScriptDir&"\"&$result&" 这里再加引号会出错啊

我想压成还保持源文件名称的rar

sensel

RunWait('C:\Program Files\WinRAR\winrar.exe a -ep2 -ibck -m0 -zzs.txt "' & @ScriptDir & '\' & $result & '" "' & @ScriptDir & '\back.lst"')

qddoit

这样的话，打包的只是back.lst了，不是列表的文件了

sensel

RunWait('C:\Program Files\WinRAR\winrar.exe a -ep2 -ibck -m0 -zzs.txt "' & @ScriptDir & '\' & $result & '" @"' & @ScriptDir & '\back.lst"')
WinRAR <命令> -<开关1> -<开关N> <压缩文件 > <文件...> <@列表文件...> <解压路径\>

lynfr8

sensel 的方法可行！！

qddoit

还是不好用哦，我再研究研究

lynfr8

关于空格路径问题给个思路：
StringIsSpace 检查某个字符串是否仅含有"空白符"
StringReplace 替换字符串中的指定子串，将有空白符的替换为'_'
filemove 重命名文件名
然后再压缩文件
这样就可以避免路径问题了，不过代价就是无法做到同源文件同名，自己斟酌取舍吧
找到更好方法请分享

cstt168

调用winrar打包当前目录所有文件为rar