BAT如何批量压缩文件夹的文件包括子目录下的文件？ - BAT求助&讨论 - 批处理之家 BAT,CMD,批处理,PowerShell,VBS,DOS

Rank: 5 Rank: 5

帖子: 709
积分: 961
技术: 83
捐助: 0
注册时间: 2012-9-14

16楼 跳转到 »

发表于 2019-6-17 17:03 | 只看该作者

回复 xczxczxcz

Microsoft Windows XP [版本 5.1.2600]
(C) 版权所有 1985-2001 Microsoft Corp.

...
netdzb 发表于 2019-6-17 16:53

holleo.ps1 前面加个 ".\"; powershell .\hello.ps1; 介样子。或 powershell "d:\xxx\hello.ps1"

Rank: 5 Rank: 5

帖子: 909
积分: 1215
技术: 3
捐助: 0
注册时间: 2018-1-17

17楼

发表于 2019-6-17 17:09 | 只看该作者

回复 15# xczxczxcz

Microsoft Windows XP [版本 5.1.2600]
(C) 版权所有 1985-2001 Microsoft Corp.

C:\WINDOWS\system32>i:

I:\>cd hetxt

I:\hetxt>path d:\power

I:\hetxt>powershell
Windows PowerShell V2 (Community Technology Preview - Features Subject to Change
)
Copyright (C) 2007 Microsoft Corporation. All rights reserved.

PS I:\hetxt> ./yan.ps1
The term 'rar' is not recognized as a cmdlet, function, operable program, or sc
ript file. Verify the term and try again.
At I:\hetxt\yan.ps1:7 char:3
+    & <<<<  rar a -ep $name $files[$Begin].FullName|Out-Null;
Get-Item : Cannot find path 'I:\hetxt\001.rar' because it does not exist.
At I:\hetxt\yan.ps1:8 char:15
+    if ((Get-Item <<<<  $name).Length/1MB -gt 20) {
The term 'rar' is not recognized as a cmdlet, function, operable program, or sc
ript file. Verify the term and try again.
At I:\hetxt\yan.ps1:7 char:3
+    & <<<<  rar a -ep $name $files[$Begin].FullName|Out-Null;
Get-Item : Cannot find path 'I:\hetxt\001.rar' because it does not exist.
At I:\hetxt\yan.ps1:8 char:15
+    if ((Get-Item <<<<  $name).Length/1MB -gt 20) {
The term 'rar' is not recognized as a cmdlet, function, operable program, or sc
ript file. Verify the term and try again.
At I:\hetxt\yan.ps1:7 char:3
+    & <<<<  rar a -ep $name $files[$Begin].FullName|Out-Null;
Get-Item : Cannot find path 'I:\hetxt\001.rar' because it does not exist.
At I:\hetxt\yan.ps1:8 char:15
+    if ((Get-Item <<<<  $name).Length/1MB -gt 20) {
The term 'rar' is not recognized as a cmdlet, function, operable program, or sc
ript file. Verify the term and try again.
At I:\hetxt\yan.ps1:7 char:3
+    & <<<<  rar a -ep $name $files[$Begin].FullName|Out-Null;
Get-Item : Cannot find path 'I:\hetxt\001.rar' because it does not exist.
At I:\hetxt\yan.ps1:8 char:15
+    if ((Get-Item <<<<  $name).Length/1MB -gt 20) {
The term 'rar' is not recognized as a cmdlet, function, operable program, or sc
ript file. Verify the term and try again.
At I:\hetxt\yan.ps1:7 char:3
+    & <<<<  rar a -ep $name $files[$Begin].FullName|Out-Null;
Get-Item : Cannot find path 'I:\hetxt\001.rar' because it does not exist.
At I:\hetxt\yan.ps1:8 char:15
+    if ((Get-Item <<<<  $name).Length/1MB -gt 20) {
The term 'rar' is not recognized as a cmdlet, function, operable program, or sc
ript file. Verify the term and try again.
At I:\hetxt\yan.ps1:7 char:3
+    & <<<<  rar a -ep $name $files[$Begin].FullName|Out-Null;
Get-Item : Cannot find path 'I:\hetxt\001.rar' because it does not exist.
At I:\hetxt\yan.ps1:8 char:15
+    if ((Get-Item <<<<  $name).Length/1MB -gt 20) {
The term 'rar' is not recognized as a cmdlet, function, operable program, or sc
ript file. Verify the term and try again.
At I:\hetxt\yan.ps1:7 char:3
+    & <<<<  rar a -ep $name $files[$Begin].FullName|Out-Null;
Get-Item : Cannot find path 'I:\hetxt\001.rar' because it does not exist.
At I:\hetxt\yan.ps1:8 char:15
+    if ((Get-Item <<<<  $name).Length/1MB -gt 20) {
The term 'rar' is not recognized as a cmdlet, function, operable program, or sc
ript file. Verify the term and try again.
At I:\hetxt\yan.ps1:7 char:3
+    & <<<<  rar a -ep $name $files[$Begin].FullName|Out-Null;
Get-Item : Cannot find path 'I:\hetxt\001.rar' because it does not exist.
At I:\hetxt\yan.ps1:8 char:15
+    if ((Get-Item <<<<  $name).Length/1MB -gt 20) {
The term 'rar' is not recognized as a cmdlet, function, operable program, or sc
ript file. Verify the term and try again.
At I:\hetxt\yan.ps1:7 char:3
+    & <<<<  rar a -ep $name $files[$Begin].FullName|Out-Null;
Get-Item : Cannot find path 'I:\hetxt\001.rar' because it does not exist.
At I:\hetxt\yan.ps1:8 char:15
+    if ((Get-Item <<<<  $name).Length/1MB -gt 20) {
The term 'rar' is not recognized as a cmdlet, function, operable program, or sc
ript file. Verify the term and try again.
At I:\hetxt\yan.ps1:7 char:3
+    & <<<<  rar a -ep $name $files[$Begin].FullName|Out-Null;
Get-Item : Cannot find path 'I:\hetxt\001.rar' because it does not exist.
At I:\hetxt\yan.ps1:8 char:15
+    if ((Get-Item <<<<  $name).Length/1MB -gt 20) {
The term 'rar' is not recognized as a cmdlet, function, operable program, or sc
ript file. Verify the term and try again.
At I:\hetxt\yan.ps1:7 char:3
+    & <<<<  rar a -ep $name $files[$Begin].FullName|Out-Null;
Get-Item : Cannot find path 'I:\hetxt\001.rar' because it does not exist.
At I:\hetxt\yan.ps1:8 char:15
+    if ((Get-Item <<<<  $name).Length/1MB -gt 20) {
The term 'rar' is not recognized as a cmdlet, function, operable program, or sc
ript file. Verify the term and try again.
At I:\hetxt\yan.ps1:7 char:3
+    & <<<<  rar a -ep $name $files[$Begin].FullName|Out-Null;
Get-Item : Cannot find path 'I:\hetxt\001.rar' because it does not exist.
At I:\hetxt\yan.ps1:8 char:15
+    if ((Get-Item <<<<  $name).Length/1MB -gt 20) {
The term 'rar' is not recognized as a cmdlet, function, operable program, or sc
ript file. Verify the term and try again.
At I:\hetxt\yan.ps1:7 char:3
+    & <<<<  rar a -ep $name $files[$Begin].FullName|Out-Null;
Get-Item : Cannot find path 'I:\hetxt\001.rar' because it does not exist.
At I:\hetxt\yan.ps1:8 char:15
+    if ((Get-Item <<<<  $name).Length/1MB -gt 20) {
The term 'rar' is not recognized as a cmdlet, function, operable program, or sc
ript file. Verify the term and try again.
At I:\hetxt\yan.ps1:7 char:3
+    & <<<<  rar a -ep $name $files[$Begin].FullName|Out-Null;
Get-Item : Cannot find path 'I:\hetxt\001.rar' because it does not exist.
At I:\hetxt\yan.ps1:8 char:15
+    if ((Get-Item <<<<  $name).Length/1MB -gt 20) {
The term 'rar' is not recognized as a cmdlet, function, operable program, or sc
ript file. Verify the term and try again.
At I:\hetxt\yan.ps1:7 char:3
+    & <<<<  rar a -ep $name $files[$Begin].FullName|Out-Null;
Get-Item : Cannot find path 'I:\hetxt\001.rar' because it does not exist.
At I:\hetxt\yan.ps1:8 char:15
+    if ((Get-Item <<<<  $name).Length/1MB -gt 20) {
The term 'rar' is not recognized as a cmdlet, function, operable program, or sc
ript file. Verify the term and try again.
At I:\hetxt\yan.ps1:7 char:3
+    & <<<<  rar a -ep $name $files[$Begin].FullName|Out-Null;
Get-Item : Cannot find path 'I:\hetxt\001.rar' because it does not exist.
At I:\hetxt\yan.ps1:8 char:15
+    if ((Get-Item <<<<  $name).Length/1MB -gt 20) {
PS I:\hetxt>

可以运行了，但是遇到rar找不到的问题，怎么解决？
控制台我能运行rar，环境变量我已经设置了啊。

Rank: 5 Rank: 5

帖子: 909
积分: 1215
技术: 3
捐助: 0
注册时间: 2018-1-17

18楼

发表于 2019-6-17 17:18 | 只看该作者

回复 15# xczxczxcz

代码运行了，结果不正确。文件夹下面的文件被压缩了。下面的子文件夹没有被打包。如果子文件下面还有子
文件夹还要继续被打包。

Rank: 5 Rank: 5

帖子: 909
积分: 1215
技术: 3
捐助: 0
注册时间: 2018-1-17

19楼

发表于 2019-6-17 17:21 | 只看该作者

Microsoft Windows XP [版本 5.1.2600]
(C) 版权所有 1985-2001 Microsoft Corp.

C:\WINDOWS\system32>i:

I:\>cd \hetxt

I:\hetxt>path d:\power

I:\hetxt>powershell
Windows PowerShell V2 (Community Technology Preview - Features Subject to Change
)
Copyright (C) 2007 Microsoft Corporation. All rights reserved.

PS I:\hetxt> ./yan.ps1
PS I:\hetxt> ls

Directory: Microsoft.PowerShell.Core\FileSystem::I:\hetxt

Mode             LastWriteTime    Length Name
----             -------------    ------ ----
d----       2019-6-17    13:54          yhgf
-a---       2019-6-1    12:50       133 hebing.bat
-a---       2019-6-2    11:30       117 hel.sh
-a---       2019-6-2    11:36       116 hel.sh.txt
-a---       2019-6-17    16:32       47 hello.ps1
-a---       2019-6-1    12:33       145 shiyan.bat
-a---       2019-6-17    16:21       254 test.bat
-a---       2019-6-2    11:31       100 total.txt
-a---       2019-6-17    17:12       341 yan.ps1
-a---       2019-6-1    11:58       8 密码01.txt
-a---       2019-6-1    11:58       8 密码02.txt
-a---       2019-6-1    11:58       10 密码03.txt
-a---       2019-6-1    11:58       11 密码04.txt
-a---       2019-6-1    11:59       10 密码05.txt
-a---       2019-6-1    11:59       12 密码06.txt
-a---       2019-6-1    11:59       11 密码07.txt
-a---       2019-6-1    11:59       14 密码08.txt

文件被打包了，文件夹yhgf没有被打包。

Rank: 5 Rank: 5

帖子: 709
积分: 961
技术: 83
捐助: 0
注册时间: 2012-9-14

20楼

发表于 2019-6-17 17:22 | 只看该作者

本帖最后由 xczxczxcz 于 2019-6-17 17:24 编辑

把 XXX.PS1 放到你要处理的文件夹内。再把控制台切换到该目录。再运行。
偶看你自己写的BAT 也是在待处理文件夹内，所以也这样写了。

不过这样的话会把 xxx.ps1也打包进去。

其实你在切换到该目录下后，直接把上面的脚本内容复制粘贴到控制台运行就可以了。

Rank: 5 Rank: 5

帖子: 709
积分: 961
技术: 83
捐助: 0
注册时间: 2012-9-14

21楼

发表于 2019-6-17 17:25 | 只看该作者

回复 19# netdzb

偶看你上面的 BAT 只处理文件没有处理文件夹。所以你懂的。过滤了文件夹。

Rank: 5 Rank: 5

帖子: 909
积分: 1215
技术: 3
捐助: 0
注册时间: 2018-1-17

22楼

发表于 2019-6-17 17:28 | 只看该作者

回复 21# xczxczxcz

@echo on
setlocal enabledelayedexpansion
set num=100
for /f "delims=" %%i in ('dir /a-d /b /s *.*') do (
   rar a i:\hand\temp.rar %%i
   copy/y i:\hand\temp.rar i:\hand\!num:~-2!.rar
   set /a num+=1
   del i:\hand\temp.rar
)
pause

代码我修改了，文件大小的判断我搞不定。能否增加文件夹判断的功能，谢谢！

Rank: 5 Rank: 5

帖子: 709
积分: 961
技术: 83
捐助: 0
注册时间: 2012-9-14

23楼

发表于 2019-6-17 17:38 | 只看该作者

回复 22# netdzb

把 PS 脚本的第一行改成 $files =ls -rec|?{$_.Directory};
其它不变，看能不能满足你的要求。如果要保存原来文件的目录结构，自行删除 -EP 参数。

Rank: 5 Rank: 5

帖子: 909
积分: 1215
技术: 3
捐助: 0
注册时间: 2018-1-17

24楼

发表于 2019-6-17 17:48 | 只看该作者

回复 23# xczxczxcz

测试了，还是没有文件夹。

Rank: 5 Rank: 5

帖子: 709
积分: 961
技术: 83
捐助: 0
注册时间: 2012-9-14

25楼

发表于 2019-6-17 18:03 | 只看该作者

回复 24# netdzb

是把文件夹内的文件一起提出来了，不建立文件夹。

Rank: 5 Rank: 5

帖子: 909
积分: 1215
技术: 3
捐助: 0
注册时间: 2018-1-17

26楼

发表于 2019-6-17 18:14 | 只看该作者

回复 25# xczxczxcz

把ep去掉就文件夹了。

Rank: 5 Rank: 5

帖子: 709
积分: 961
技术: 83
捐助: 0
注册时间: 2012-9-14

27楼

发表于 2019-6-17 18:16 | 只看该作者

你自己根据需要修改 RAR 参数吧。偶们也不明白你的最终需求。

Batcher

管理员

Rank: 12

帖子: 14935
积分: 46142
技术: 857
捐助: 745
注册时间: 2008-6-9

28楼

发表于 2019-6-17 19:03 | 只看该作者

回复 22# netdzb

试试这样可以比较文件大小吗：

@echo on
setlocal enabledelayedexpansion
set num=100
for /f "delims=" %%i in ('dir /a-d /b /s *.*') do (
    rar a I:\hand\temp.rar "%%i"
    for %%a in ("I:\hand\temp.rar") do (
        if %%~za leq 20971520 (
            echo %%a 不大于20MB
            REM 把你需要的操作放在这里
        )
    )
    copy /y I:\hand\temp.rar I:\hand\!num:~-2!.rar
    set /a num+=1
    del /f I:\hand\temp.rar
)
pause
复制代码

我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

Rank: 5 Rank: 5

帖子: 909
积分: 1215
技术: 3
捐助: 0
注册时间: 2018-1-17

29楼

发表于 2019-6-18 11:27 | 只看该作者

回复 28# Batcher

代码有错误，会在页面显示代码，好像是多了括号。

Batcher

管理员

Rank: 12

帖子: 14935
积分: 46142
技术: 857
捐助: 745
注册时间: 2008-6-9

30楼

发表于 2019-6-18 15:07 | 只看该作者

回复 29# netdzb

echo on 改成 echo off 试试呢？如果还是不行，请把报错信息发出来看看。我数了一下，5个左括号、5个右括号，没发现多或少。