delphi 菜鸟问题,急救

Posted 2023-03-24

我想把文件列表的文件复制进对应的文件夹
另外要判断该文件是否在使用,如果在使用EXIT，没有使用覆盖该文件并写进log文件
犹豫文件是数目是不确定的,如何判断啊？
for i := 0 to listbox.items.count -1 do
判断这个listbox.items[i]因该不行,因为我要判断这个文件是否使用,没使用就覆盖并写到log文件..另外复制多个文件的函数也没找到..
copyfile(a[i],b[i],false) 这个不行
我不是备份文件,是COPY文件到服务器去,服务器的某些文件长期被使用..我写到TIMER里去，每隔几分钟检测1次，发现在使用或已经覆盖的文件就EXIT，否则就覆盖并写好覆盖日志..
copy文件夹 ---文件未知(X)--需要拷贝到对应的目录
ss是判断文件是否使用的函数
if ss(str(i)) then
copy文件进相印的文件夹
大家只要给我思路就好了，其他的我会解决

copyfileA(pchar(ExtractFilePath(ParamStr(0))+'datewj\xmmzsf.mdb'),pchar(bflj),false);
这个函数我经常用它来备份ACCESS数据库，很好用的，按理说，被备份的数据应该是正在使用的文件。
这函数有三个参数，第一个：原文件路径，第二个复制到的路径；第三个，是一布
尔值变量，你写成false就行了。追问

大哥，你没搞懂我的意思，我是要复制指定的文件，比如文件夹A中有10个文件(未知数)
这是个文件就是str[i],我要把这是10个文件分别复制到不同的目录
最重要的是我要判断是否在使用中..
if 使用函数(str(i)) then
copy这10个文件到指定的文件夹
copyfile是不行的，这个是小问题，最主要是如何判断为正在使用时EXIT
没有使用该文件时,copy覆盖该文件，并写进log或写进memo

参考技术A 以独占方式打开要覆盖的文件，如果打开错误，就是在使用