建路径中的各级文件夹

Question

比如我复制d:\aaa\bbb\下的ccc.txt到e:\下，会提示说该路径不存在。怎么样复制过程中也在e:\中逐级建立aaa\bbb文件夹？？？

Answer 1

copyfile('d:\aaa\bbb\ccc.txt','e:\ccc.txt',false);

Answer 2

 if   DirectoryExists(ExtractFilePath(Application.ExeName)+bsskinlistview3.Selected.SubItems.Strings[0])=false  then
   CreateDirectory(PChar(ExtractFilePath(ParamStr(0))+bsskinlistview3.Selected.SubItems.Strings[0]),nil);if   DirectoryExists(ExtractFilePath(Application.ExeName)+bsskinlistview3.Selected.SubItems.Strings[0]+'\'+'RRB')=false  then
   CreateDirectory(PChar(ExtractFilePath(ParamStr(0))+bsskinlistview3.Selected.SubItems.Strings[0]+'\'+'RRB'),nil);if   DirectoryExists(ExtractFilePath(Application.ExeName)+bsskinlistview3.Selected.SubItems.Strings[0]+'\'+'RRB'+'\'+bsskinlistview3.Selected.SubItems.Strings[4])=false  then
   CreateDirectory(PChar(ExtractFilePath(ParamStr(0))+bsskinlistview3.Selected.SubItems.Strings[0]+'\'+'RRB'+'\'+bsskinlistview3.Selected.SubItems.Strings[4]),nil);
一级一级建立的

Answer 3

使用DirectoryExists和ForceDirectories函数进行处理

Answer 4

直接使用 ForceDirectories 函数即可
使用前 请引用 FileCtrl单元

Answer 5

ForceDirectories 的话会把最后的文件名也创建成文件夹的shuaialang大哥的代码看不大懂，能解释下吗？