关于新建文件夹的问题(100分)

  • 主题发起人 主题发起人 jhddx
  • 开始时间 开始时间
J

jhddx

Unregistered / Unconfirmed
GUEST, unregistred user!
如题:
CreateDirectory('abc',nil);
用这个函数建文件夹怎么指定路径啊?
还有就我这这种情况下该怎么写
var str:string;
begin
str:=trim(treeview1.Selected.Text);
CreateDirectory('''+str+''',nil);
end;

这个CreateDirectory(str,nil); 里面的 str 变量该怎么写才对啊,我那种写法不对..得的结果是 '+str+'
 
CreateDirectory(PathName,nil).当然是在PathName里指定路径了 。
 
CreateDirectory(pChar('D:/新建文件夹'),nil);
 
CreateDirectory(pChar('D:/abc'),nil);

var str:string;
begin
str:='c:/abc';
CreateDirectory(pChar(str),nil);
 
procedure TForm1.Button2Click(Sender: TObject);
var
Str: String;
begin
Str:= 'C:/新建文件夹';
CreateDirectory(pChar(Str),nil);
end;
 
CreateDirectory('c:/abc',nil); //建c:/abc目录
CreateDirectory(#39 + str + #39, nil);
 
问题已解决..多谢各位热心的兄弟(姐妹)!
放分..心痛中...(没看清楚点错..自己腰包已经没多少分了...)
 
后退
顶部