filepath := PathJoin(['C:', 'path1', 'path2\', 'a.doc']);
// filepath = 'C:\path1\path2\a.doc'
代码:
function PathJoin(const Args: array of string): string;
var
len: Integer;
i: Integer;
s: string;
begin
s := '';
len := length(Args);
for i := to len- do
begin
if s = '' then
begin
s := s + Args[i]
end
else
begin
if Args[i] <> '' then
s := IncludeTrailingPathDelimiter(s) + Args[i];
end;
end;
Result := s;
end;
相关文章
- Delphi可执行文件调用DLL,该DLL又调用其他的动态库,多个DLL不在同一目录下,应该如何实现?
- ASP FSO显示特殊文件夹的实现代码(畸形目录名、UNC路径)
- C语言实现的获取某目录及其子目录下所有文件的绝对路径
- (转找了好久)实现一个2008serve的IIS的虚拟目录(通过网络路径(UNC)的形式,共享在另外一个2008服务器上
- 如何将超链接放到“目录树中的两个级别”?
- 如何实现把一个文件夹及里面的文件一起拷贝到指定的路径目录下.
- php求两个目录的相对路径示例(php获取相对路径)
- shell脚本实现仅保留某目录下最新的两个文件
- 两个简单的makefile的实现,编译当前目录下所有的.c文件
- 两个简单的makefile的实现,编译当前目录下所有的.c文件