copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false);
◇[DELPHI]取得WINDOWS目录
uses shellapi;
var windir:array[0..255] of char;
getwindowsdirectory(windir,sizeof(windir));
或者从注册表中读取,位置:
HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion
SystemRoot键,取得如:C:/WINDOWS
◇[DELPHI]关于文件、目录操作
Chdir('c:/abcdir');转到目录
Mkdir('dirname');建立目录
Rmdir('dirname');删除目录
GetCurrentDir;//取当前目录名,无'/'
Getdir(0,s);//取工作目录名s:='c:/abcdir';
Deletfile('abc.txt');//删除文件
Renamefile('old.txt','new.txt');//文件更名
ExtractFilename(filelistbox1.filename);//取文件名
ExtractFileExt(filelistbox1.filename);//取文件后缀
◇[DELPHI]处理文件属性
attr:=filegetattr(filelistbox1.filename);
if (attr and faReadonly)=faReadonly then ... //只读
if (attr and faSysfile)=faSysfile then ... //系统
if (attr and faArchive)=faArchive then ... //存档
if (attr and faHidden)=faHidden then ... //隐藏
◇[DELPHI]执行程序外文件
WINEXEC//调用可执行文件
winexec('command.com /c copy *.* c:/',SW_Normal);
winexec('start abc.txt');
ShellExecute或ShellExecuteEx//启动文件关联程序
function executefile(const filename,params,defaultDir:string;showCmd:integer):THandle;
ExecuteFile('C:/abc/a.txt','x.abc','c:/abc/',0);
ExecuteFile('http://tingweb.yeah.net','','',0);
ExecuteFile('mailto:tingweb@wx88.net','','',0);
◇源目录://Hp/授权使用/外贸业务系统/.
目的目录:c:/zkf
1
找到一个DELPHI自带的COPYFILE函数,但不支持多文件,太麻烦
2
笨方法:
1、你在本地建一个批处理文件
Copy Con CopyFile.bat
@echo off
Copy //Hp/授权使用/外贸业务系统/*.* c:/zkf
echo 拷贝完毕!!
^z // save
2、你只要执行这个批处理文件就可以,当然,要看你使用的场合。
你也可以在Delphi中打开上述批处理文件,以达到相同的目的.
3
只要你有相应的权限,可以使用这个API函数:
procedure TForm1.BitBtn1Click(Sender: TObject);
var F:TShFileOpStruct; //uses shellapi;
b:integer;
begin
f.Wnd:=Form1.Handle;
f.wFunc:=fo_copy; //fo_delete,copy,move,rename
f.pFrom:=pChar('//Hp/授权使用/外贸业务系统');
f.pTo:=pChar('c:/zkf');
f.fFlags:=FOF_ALLOWUNDO ;//or FOF_SILENT or FOF_NOCONFIRMATION;
b:=ShFileOperation(f);
if f.fAnyOperationsAborted then ShowMessage('用户取消操作');
if b=0 then exit;
beep; ShowMessage('文件操作没有实现!');
end;
4
那在复制时不出现文件已存在,是否覆盖的提问该怎么做?
5
呵呵,看Delphi的帮助嘛!
只要把f.fFlags:=FOF_ALLOWUNDO ;//or FOF_SILENT or FOF_NOCONFIRMATION
改为f.fFlags:=FOF_SILENT or FOF_NOCONFIRMATION就可以了.
分享到:
相关推荐
比较全的文件操作方法,有函数的说明,代码举例,文件很小,可以作为工具代码保存
Delphi文件操作所涉及的一些函数 附例
delphi文件操作 大家可以借用参考
delphi操作xml文件的不同的上传下载和生成的方式
delphi中的文件操作,很实用,请检测
使用API函数复制移动文件 使用API访问ListBox项 使用GetTempFileName创建一个唯一的临时文件 使用INI文件 使用INI文件保存、装载字体信息 使用TFileStream 使用TStream保存字符串 使用TTreeview显示目录 使窗体的...
Delphi中文件操作的总结Delphi中文件操作的总结Delphi中文件操作的总结Delphi中文件操作的总结Delphi中文件操作的总结
Delphi 操作Hosts文件Delphi 操作Hosts文件Delphi 操作Hosts文件Delphi 操作Hosts文件
摘要:Delphi源码,文件操作,目录操作 Delphi文件目录操作一例,person.dat为数据库,Delphi全目录文件拷贝、删除文件或目录到回收站中,演示了一些简单的文件FSO操作,用Delphi究竟如何实现,请下载源码一看究竟。
请先拖入flw.xs到程序框中,在进行账号录入。记录文件后缀名可以自定义,大家可以自行修改哦,记得在代码中修改为自己想要的类型,比如flw.dat亦或者其它的。
delphi 文件目录操作函数,delphi 文件目录操作函数
Delphi文件及目录的使用 文件操作 目录操作,整合了文件和目录的操作
delphi操作文本文件,可以读写内容,制作配置程序。
Delphi文件管理器可以对文件进行各种操作,包括目录管理
一个基础的Delphi 文件目录操作示例,这里是拷贝指定的文件夹目录,一是了解复制文件的原理,二是熟悉Delphi中的目录操作技巧。
此源代码利用文件打开,保存的方式进行操作,可以读出文件里面的内容,及内容的保存
Delphi操作Ini文件 Delphi操作Ini文件
delphi资源文件操作实例(文件测试包,帮助文档)