脸
脸谱
Unregistered / Unconfirmed
GUEST, unregistred user!
棘手问题：1、我想让程序检查在当前文件夹下是否存在子文件夹bb，如果bb存在的话，就打开
一个word文件——'file'，如果不存在那么就建一个bb子文件夹！这个程序该怎么写？只要通过
我立刻给分！◎
一个word文件——'file'，如果不存在那么就建一个bb子文件夹！这个程序该怎么写？只要通过
我立刻给分！◎
卷
卷起千堆雪tyn
Unregistered / Unconfirmed
GUEST, unregistred user!
DirectoryExists
脸
脸谱
Unregistered / Unconfirmed
GUEST, unregistred user!
能不能具体点？我不会用！你给我写出来吧！
茶
茶叶蛋
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var MSWord: Variant;
begin
if DirectoryExists( ExtractFilePath( ParamStr( 0 ) ) + '/bb' ) then
begin
MSWord := CreateOleObject('Word.Application');//连接Word
MSWord.Documents.Open(FileName:=ExtractFilePath( ParamStr( 0 ) ) + '/bb/file.doc', ReadOnly:=false);//打开外部Word文档
end
else
begin
CreateDir( ExtractFilePath( ParamStr( 0 ) ) + '/bb' )
end;
end;
var MSWord: Variant;
begin
if DirectoryExists( ExtractFilePath( ParamStr( 0 ) ) + '/bb' ) then
begin
MSWord := CreateOleObject('Word.Application');//连接Word
MSWord.Documents.Open(FileName:=ExtractFilePath( ParamStr( 0 ) ) + '/bb/file.doc', ReadOnly:=false);//打开外部Word文档
end
else
begin
CreateDir( ExtractFilePath( ParamStr( 0 ) ) + '/bb' )
end;
end;
C
cgzhang
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var
currentdir:string;
begin
currentdir:=extractfilepath(paramstr(0));
if DirectoryExists(currentdir+'bb') then
...
else
...
end;
var
currentdir:string;
begin
currentdir:=extractfilepath(paramstr(0));
if DirectoryExists(currentdir+'bb') then
...
else
...
end;
茶
茶叶蛋
Unregistered / Unconfirmed
GUEST, unregistred user!
to All
呵呵，我快... [
]
呵呵，我快... [
]
D
Demander
Unregistered / Unconfirmed
GUEST, unregistred user!
可惜我不用Delphi,我用C++ Builder。这里仅提个方法，几个函数。
extern PACKAGE bool __fastcall DirectoryExists(const AnsiString Name);//在FileCtrl中
extern PACKAGE bool __fastcall CreateDir(const AnsiString Dir);//在Sysutils中
extern PACKAGE bool __fastcall FileExists(const AnsiString FileName);//在Sysutils中
函数 ParamStr(0) 返回当前应用程序的路径名及应用程序名(例如 C:/TEST/MYPROG.EXE)
extern PACKAGE AnsiString __fastcall ExtractFilePath(const AnsiString FileName)
;//在Sysutils中
此函数返回当前FileName的路径名部分
ExtractFilePath(ParamStr(0)) 返回当前应用程序的路径名
以上这些函数够用了吧。祝你早日解决问题
extern PACKAGE bool __fastcall DirectoryExists(const AnsiString Name);//在FileCtrl中
extern PACKAGE bool __fastcall CreateDir(const AnsiString Dir);//在Sysutils中
extern PACKAGE bool __fastcall FileExists(const AnsiString FileName);//在Sysutils中
函数 ParamStr(0) 返回当前应用程序的路径名及应用程序名(例如 C:/TEST/MYPROG.EXE)
extern PACKAGE AnsiString __fastcall ExtractFilePath(const AnsiString FileName)
;//在Sysutils中此函数返回当前FileName的路径名部分
ExtractFilePath(ParamStr(0)) 返回当前应用程序的路径名
以上这些函数够用了吧。祝你早日解决问题
脸
脸谱
Unregistered / Unconfirmed
GUEST, unregistred user!
多谢！茶叶蛋！[
]
]
V
vine
Unregistered / Unconfirmed
GUEST, unregistred user!
还不结束
脸
脸谱
Unregistered / Unconfirmed
GUEST, unregistred user!
小弟我的分不多，大家多包含！