Thank you for your answer,here is my code it run well with XP
////////////////////////////////////////////////////////////////////////////////////////
void StartVUS(){
// ici je demande le nom sct?
// InputDialog // InputQuery
/*
TOpenDialog *OpenDialog1;
OpenDialog1 =new TOpenDialog(NULL);
OpenDialog1->Filter="Opti Files(*.rxt)|*.RXT";
if(OpenDialog1->Execute()){
NomFichier=OpenDialog1->FileName;
TSearchRec sr;int iatt;
FindFirst(NomFichier,iatt,sr);
Fichier=sr.Name;
Fichier=Fichier.SubString(0,Fichier.Length()-4);
*/
NomChemin=ExtractFilePath(Application->ExeName);
RepList=new TRepList(NULL);
RepList->ShowModal();
if (RepList->ferme==true){}else
{
#ifdef multientreprise
NomFichier=NomChemin+"\\DirFile\\"+Fichier+".rxt";
#endif
//delete OpenDialog1;
StarUSA = new TStarUSA(NULL);
StarUSA->Show();
}
}
void __fastcall TStarUSA::InitBoiteListe(TObject *Sender)
{
Table1= new TTable(this);
Table1->Active=false;
Table1->DatabaseName=NomChemin+"DirBase\\";
Table1->TableType=ttDefault;
Table1->TableName=Fichier+"calcrats.db";
Table1->Active=true;
Table1->First();
NbreAns=0;
do{
ListBox1->Items->Add(Table1->FieldByName("Date")->AsString);
Update();
Table1->Next();NbreAns++;
}while(!Table1->Eof);
}
//////////////////////////////////////////////////////////////////////////////////////
It here it don't find the file
I thank you very much again
Patrick
"Remy Lebeau (TeamB)" <
XXXX@XXXXX.COM >a écrit dans le message de
Quote
"patrickartaud" < XXXX@XXXXX.COM >wrote in message
news: XXXX@XXXXX.COM ...
>My application creates folders in its own directory
>"C:\ProgPerso\OpriEssai\subfolders" and stocks .dbf files but
>when my application tries to open files created in its on directory
>I have "File does not exist" error message.
Please show your actual code.
Gambit