从一个文件夹复制文件到另一个文件夹批的处理文件怎么写?
发布网友
发布时间：2022-04-24 04:11
共1个回答
热心网友
时间：2023-10-26 23:46
不清楚你的实际文件/情况，仅以问题中的样例/说明为据；以下代码复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的文件或文件夹放一起双击运行<# :
cls&echo off&cd /d "%~dp0"&mode con lines=5000
rem 将一个指定文件夹里的文件每间隔指定数量提取/拷贝/复制到另一个文件夹里
set #=Any question&set _=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%_% %z%
powershell -NoProfile -ExecutionPolicy bypass "[IO.File]::ReadAllText(\"%~f0\",[Text.Encoding]::GetEncoding('GB2312'))|Invoke-Expression"
echo;%#% +%$%%$%/%_% %z%
pause
exit
#>
$space=2;
$folder1=".\新建文件夹 (1)";
$folder2=".\新建文件夹 (2)";
if(-not (test-path -literal $folder1)){write-host ('"'+$folder1+'" 未找到');exit;};
if(-not (test-path -literal $folder2)){[void][IO.Directory]::CreateDirectory($folder2)};
$codes=@'
using System;
using System.Collections.Generic;
using System.Runtime.InteropServices;
public static class ExpDir
{
[DllImport("Shlwapi.dll", CharSet=CharSet.Unicode)]
public static extern int StrCmpLogicalW(string p1, string p2);
public static string[] Sort(string[] f)
{
Array.Sort(f, StrCmpLogicalW);
return f;
}
}
'@;
Add-Type -TypeDefinition $codes;
$b=[Convert]::FromBaseString("IC0tPiA=");
$c=[Text.Encoding]::Default.GetString($b);
$files=@(dir -literal $folder1|?{$_ -is [System.IO.FileInfo]}|%{$_.Name});
if($files.length -ge 1){
$arr=[ExpDir]::Sort($files);
for($j=1;$j -le $arr.count;$j=$j+$space+1){
$folder1.trimend('\')+'\'+$arr[$j-1]+$c+$folder2;
}
}
追问选择了，但是没有复制
追答
按运行代码后窗口标题栏中的提示联系我
来自：求助得到的回答
热心网友
时间：2023-10-26 23:46
不清楚你的实际文件/情况，仅以问题中的样例/说明为据；以下代码复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的文件或文件夹放一起双击运行<# :
cls&echo off&cd /d "%~dp0"&mode con lines=5000
rem 将一个指定文件夹里的文件每间隔指定数量提取/拷贝/复制到另一个文件夹里
set #=Any question&set _=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%_% %z%
powershell -NoProfile -ExecutionPolicy bypass "[IO.File]::ReadAllText(\"%~f0\",[Text.Encoding]::GetEncoding('GB2312'))|Invoke-Expression"
echo;%#% +%$%%$%/%_% %z%
pause
exit
#>
$space=2;
$folder1=".\新建文件夹 (1)";
$folder2=".\新建文件夹 (2)";
if(-not (test-path -literal $folder1)){write-host ('"'+$folder1+'" 未找到');exit;};
if(-not (test-path -literal $folder2)){[void][IO.Directory]::CreateDirectory($folder2)};
$codes=@'
using System;
using System.Collections.Generic;
using System.Runtime.InteropServices;
public static class ExpDir
{
[DllImport("Shlwapi.dll", CharSet=CharSet.Unicode)]
public static extern int StrCmpLogicalW(string p1, string p2);
public static string[] Sort(string[] f)
{
Array.Sort(f, StrCmpLogicalW);
return f;
}
}
'@;
Add-Type -TypeDefinition $codes;
$b=[Convert]::FromBaseString("IC0tPiA=");
$c=[Text.Encoding]::Default.GetString($b);
$files=@(dir -literal $folder1|?{$_ -is [System.IO.FileInfo]}|%{$_.Name});
if($files.length -ge 1){
$arr=[ExpDir]::Sort($files);
for($j=1;$j -le $arr.count;$j=$j+$space+1){
$folder1.trimend('\')+'\'+$arr[$j-1]+$c+$folder2;
}
}
追问选择了，但是没有复制
追答
按运行代码后窗口标题栏中的提示联系我
来自：求助得到的回答
热心网友
时间：2023-10-26 23:46
不清楚你的实际文件/情况，仅以问题中的样例/说明为据；以下代码复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的文件或文件夹放一起双击运行<# :
cls&echo off&cd /d "%~dp0"&mode con lines=5000
rem 将一个指定文件夹里的文件每间隔指定数量提取/拷贝/复制到另一个文件夹里
set #=Any question&set _=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%_% %z%
powershell -NoProfile -ExecutionPolicy bypass "[IO.File]::ReadAllText(\"%~f0\",[Text.Encoding]::GetEncoding('GB2312'))|Invoke-Expression"
echo;%#% +%$%%$%/%_% %z%
pause
exit
#>
$space=2;
$folder1=".\新建文件夹 (1)";
$folder2=".\新建文件夹 (2)";
if(-not (test-path -literal $folder1)){write-host ('"'+$folder1+'" 未找到');exit;};
if(-not (test-path -literal $folder2)){[void][IO.Directory]::CreateDirectory($folder2)};
$codes=@'
using System;
using System.Collections.Generic;
using System.Runtime.InteropServices;
public static class ExpDir
{
[DllImport("Shlwapi.dll", CharSet=CharSet.Unicode)]
public static extern int StrCmpLogicalW(string p1, string p2);
public static string[] Sort(string[] f)
{
Array.Sort(f, StrCmpLogicalW);
return f;
}
}
'@;
Add-Type -TypeDefinition $codes;
$b=[Convert]::FromBaseString("IC0tPiA=");
$c=[Text.Encoding]::Default.GetString($b);
$files=@(dir -literal $folder1|?{$_ -is [System.IO.FileInfo]}|%{$_.Name});
if($files.length -ge 1){
$arr=[ExpDir]::Sort($files);
for($j=1;$j -le $arr.count;$j=$j+$space+1){
$folder1.trimend('\')+'\'+$arr[$j-1]+$c+$folder2;
}
}
追问选择了，但是没有复制
追答
按运行代码后窗口标题栏中的提示联系我
来自：求助得到的回答
热心网友
时间：2023-10-26 23:46
不清楚你的实际文件/情况，仅以问题中的样例/说明为据；以下代码复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的文件或文件夹放一起双击运行<# :
cls&echo off&cd /d "%~dp0"&mode con lines=5000
rem 将一个指定文件夹里的文件每间隔指定数量提取/拷贝/复制到另一个文件夹里
set #=Any question&set _=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%_% %z%
powershell -NoProfile -ExecutionPolicy bypass "[IO.File]::ReadAllText(\"%~f0\",[Text.Encoding]::GetEncoding('GB2312'))|Invoke-Expression"
echo;%#% +%$%%$%/%_% %z%
pause
exit
#>
$space=2;
$folder1=".\新建文件夹 (1)";
$folder2=".\新建文件夹 (2)";
if(-not (test-path -literal $folder1)){write-host ('"'+$folder1+'" 未找到');exit;};
if(-not (test-path -literal $folder2)){[void][IO.Directory]::CreateDirectory($folder2)};
$codes=@'
using System;
using System.Collections.Generic;
using System.Runtime.InteropServices;
public static class ExpDir
{
[DllImport("Shlwapi.dll", CharSet=CharSet.Unicode)]
public static extern int StrCmpLogicalW(string p1, string p2);
public static string[] Sort(string[] f)
{
Array.Sort(f, StrCmpLogicalW);
return f;
}
}
'@;
Add-Type -TypeDefinition $codes;
$b=[Convert]::FromBaseString("IC0tPiA=");
$c=[Text.Encoding]::Default.GetString($b);
$files=@(dir -literal $folder1|?{$_ -is [System.IO.FileInfo]}|%{$_.Name});
if($files.length -ge 1){
$arr=[ExpDir]::Sort($files);
for($j=1;$j -le $arr.count;$j=$j+$space+1){
$folder1.trimend('\')+'\'+$arr[$j-1]+$c+$folder2;
}
}
追问选择了，但是没有复制
追答
按运行代码后窗口标题栏中的提示联系我
来自：求助得到的回答
热心网友
时间：2023-10-26 23:46
不清楚你的实际文件/情况，仅以问题中的样例/说明为据；以下代码复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的文件或文件夹放一起双击运行<# :
cls&echo off&cd /d "%~dp0"&mode con lines=5000
rem 将一个指定文件夹里的文件每间隔指定数量提取/拷贝/复制到另一个文件夹里
set #=Any question&set _=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%_% %z%
powershell -NoProfile -ExecutionPolicy bypass "[IO.File]::ReadAllText(\"%~f0\",[Text.Encoding]::GetEncoding('GB2312'))|Invoke-Expression"
echo;%#% +%$%%$%/%_% %z%
pause
exit
#>
$space=2;
$folder1=".\新建文件夹 (1)";
$folder2=".\新建文件夹 (2)";
if(-not (test-path -literal $folder1)){write-host ('"'+$folder1+'" 未找到');exit;};
if(-not (test-path -literal $folder2)){[void][IO.Directory]::CreateDirectory($folder2)};
$codes=@'
using System;
using System.Collections.Generic;
using System.Runtime.InteropServices;
public static class ExpDir
{
[DllImport("Shlwapi.dll", CharSet=CharSet.Unicode)]
public static extern int StrCmpLogicalW(string p1, string p2);
public static string[] Sort(string[] f)
{
Array.Sort(f, StrCmpLogicalW);
return f;
}
}
'@;
Add-Type -TypeDefinition $codes;
$b=[Convert]::FromBaseString("IC0tPiA=");
$c=[Text.Encoding]::Default.GetString($b);
$files=@(dir -literal $folder1|?{$_ -is [System.IO.FileInfo]}|%{$_.Name});
if($files.length -ge 1){
$arr=[ExpDir]::Sort($files);
for($j=1;$j -le $arr.count;$j=$j+$space+1){
$folder1.trimend('\')+'\'+$arr[$j-1]+$c+$folder2;
}
}
追问选择了，但是没有复制
追答
按运行代码后窗口标题栏中的提示联系我
来自：求助得到的回答