- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我的最终目标是将所有相关文件从一个文件夹复制到另一个文件夹。所以例如我们有C:\Users\Tool\Desktop\test\oldStuff
。在文件夹 oldStuff
中,我们有更多文件夹以及一些 mp3、mp4 和 txt 文件。
现在我想做的是将所有小于 GB 的 mp4 文件复制到 C:\Users\Tool\Desktop\test\New_Stuff_Less_than_a_Gig
,以及大于 GB 的 .mp4 文件到 C:\Users\Tool\Desktop\test\New_STuff_Bigger_than_a_Gig
。
我虽然这很容易,但我错了。到目前为止,暂时不用担心文件类型,所以只需将其设为 *.*
procedure TForm4.Button1Click(Sender: TObject);
var
f: TSearchRec;
Dir: string;
begin
if not SelectDirectory(Dir,widestring(Dir),Dir) then Exit;
FileMode:=0;
if FindFirst(Dir+'\*.*',faAnyFile,f) = 0 then
repeat
try
if (f.Attr and faDirectory ) < $00000008 then
CopyFile(PChar(Dir+'\'+f.Name),PChar
('C:\Users\Tool\Desktop\test\new\'+f.Name),false);
except
on e: exception do
ShowMessage(E.Message);
end;
until findNext(f) <> 0
end;
这将复制所选文件夹中的任何内容,但不会从所选文件夹中的文件夹中复制任何内容。例如。如果我们有 C:\Users\Tool\Desktop\test\oldStuff\movie.mp4
它将复制 Movie.mp4
文件,但如果我们有 C:\Users\Tool\Desktop\test\oldStuff\movies\Movie.mp4
它不会复制 Movie.mp4
文件。我想我可以做这样的事情
CopyFile.size < 1000 (PChar('C:\Users\Tool\Desktop\test\oldStuff\*.*'+f.Name),
PChar('C:\Users\Tool\Desktop\test\new_Stuff\'+f.Name),false)
甚至只是
CopyFile (PChar('C:\Users\Tool\Desktop\test\old\*.*'+f.Name),
PChar('C:\Users\Tool\Desktop\test\new\'+f.Name),false);
但它没有复制任何内容。
最佳答案
这是一个示例(在 XE7 中完成),可以满足您的要求。显然,您需要修改它以满足您的需求;它具有硬编码的路径信息和文件掩码(*.png),并使用常量来决定文件是大还是小。
它基于此示例目录树:
D:\TempFiles
|--\Test
|-----\A
|-----\B
|--------\SubB
|-----\NewFiles
|-------\Large
L-------\Small
它会查找 D:\TempFiles\Test 及其子文件夹中的所有 .png 文件,并将等于或大于 10KB 的文件复制到 D:\TempFiles\NewFiles\Large 以及小于 10KB 的到 D:\TempFiles\NewFiles\Small。
您需要将 IOUtils
和 Types
添加到您的实现 uses
子句中。
procedure TForm1.Button1Click(Sender: TObject);
var
aLargeFiles: TStringDynArray;
aSmallFiles: TStringDynArray;
const
LargeSize = 10 * 1024;
SourcePath = 'D:\TempFiles\Test\';
begin
aLargeFiles := TDirectory.GetFiles(SourcePath, '*.png',
TSearchOption.soAllDirectories,
function (const Path: string; const SR: TSearchRec): Boolean
begin
Result := (SR.Size >= LargeSize);
end);
aSmallFiles := TDirectory.GetFiles(SourcePath, '*.png',
TSearchOption.soAllDirectories,
function(const Path: string; const SR: TSearchRec):Boolean
begin
Result := (SR.Size < LargeSize);
end);
CopyFilesToPath(aLargeFiles, 'D:\TempFiles\NewFiles\Large\');
CopyFilesToPath(aSmallFiles, 'D:\TempFiles\NewFiles\Small\');
end;
procedure TForm1.CopyFilesToPath(aFiles: array of string; DestPath: string);
var
InFile, OutFile: string;
begin
for InFile in aFiles do
begin
OutFile := TPath.Combine( DestPath, TPath.GetFileName( InFile ) );
TFile.Copy( InFile, OutFile, True);
end;
end;
关于delphi - 将所有内容从源目录复制到新目录 Delphi EX7,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/29183270/
我正在为我的程序编写安装脚本,它应该在 Linux/Unix 操作系统上运行。以下文件的默认目录是什么: 可执行文件(程序)。程序应通过从命令行键入其名称来执行。 共享库。 第三方共享库(程序未开源,
我有一堆用户、组和应用程序注册,我的 MVC 应用程序使用 AAD 数据进行身份验证和授权。是否可以将 Azure Active Directory 从一个租户(目录)迁移到另一个租户(目录)?如果可
查看 cljsbuild 文档 https://github.com/emezeske/lein-cljsbuild :cljsbuild { :builds [{ ; The
忽略已经版本控制的文件 如果你不小心添加了一些应该被忽略的文件,你如何将它们从版本控制中去除而不会丢失它们?或许你有自己的IDE配置文件,不是项目的一部分,但将会花费很多时间使之按照自己的方式工作。
我想使用\tableofcontents 命令,但没有目录从新页面开始或在末尾创建新页面,并且所有内容都是单倍行距。我怎样才能做到这一点?我假设使用 tocloft,但有哪些选择? 谢谢 最佳答案 试
我有一些 javascript 菜单代码,可以在单独的目录中正常工作。但是,当我尝试从同一目录中调用相同的 .js 文件时,它不会看到这些文件。 以下内容来自另一个目录: script type="t
我有这样的路径: /my/path/to/important_folder 在同一级别上,我还有其他文件和文件夹想要在达到与 important_folder 相同的级别时列出。 我的文件夹可能更深,
1、获取文件路径实现 1.1 获取当前文件路径 ? 1
我正在使用最新版本的 NTEmacs。 我写了一个名为“.dir-locals.el”的文件,如下所示。 ((nil . ((tab-width . 8) (fill-column .
关闭。这个问题不满足Stack Overflow guidelines .它目前不接受答案。 想改善这个问题吗?更新问题,使其成为 on-topic对于堆栈溢出。 7年前关闭。 Improve thi
在我的 .vimrc 中有这些行 :set foldmethod=marker :set foldmarker=SECTION:,ENDSECTION: 用于自定义代码折叠。在我的文件中,相关语言的注
在 fish 中: for x in * echo $x end *这里包括所有目录和文件,如何只列出文件(或目录)? 最佳答案 fish 没有很多花哨的通配语法。但是,目录可以像这样迭代: f
这是我的目录结构: ├── src │ ├── helpers │ │ ├── __init__.py │ │ ├── foo.py │ │ └── bar.py │
我想递归重命名文件夹/目录名称并找到 this solution所以。但是这个命令没有效果 find . -type f -exec rename 's/old/new/' '{}' \; 这是一个正
我想在相册中创建一个文件夹,并希望将图像保存在创建的相册中。 这可能吗?有什么办法可以做到这一点吗? 我已经搜索过,大多数人都说这是不可能的。 感谢您的帮助。 最佳答案 您也许可以使用AssetsLi
如何在python中使用用户定义的名称创建临时文件/目录。我知道 tempfile .但是我看不到任何以文件名作为参数的函数。 注意:我需要这个来对包含临时文件的临时目录上的 glob(文件名模式匹配
我在项目中使用JaCoCo Gradle插件。 作为问题的一个示例,我的大部分代码都在com.me.mysoftware包下。 我正在使用代码生成器来生成build/generated/java/..
我正在尝试使用 Gradle 开始运行 jar 文件 我的任务如下所示: task startServer(type: Exec) { workingDir file("${buildDir}/a
如何在 Ant 中定义一个目录集,其中包括两个目录:项目的基目录和子目录“test”? 看起来您无法使用“/”、“.”或“”专门包含目录集的根目录。例如,这包括“./test”,但不包括“.”:
我正在使用 CTAGs 包,它使用 Sublime Text 2 生成两个文件 .tags 和 .tags_sorted_by_file。 那么当我进行项目搜索(CMD + SHIFT + F)时,如
我是一名优秀的程序员,十分优秀!