arquivos de pastas superiores ..\pasta\arquivo.xxx
:roll: :idea: Olá... gostaria de saber se é possível e como eu faço para usar o ´load from file´ declarando apenas as pastas que estão acima da pasta local como neste exemplo:
..\pasta\arquivo.xxx
obrigado.
..\pasta\arquivo.xxx
obrigado.
Joaomw
Curtidas 0
Respostas
Afb
25/04/2003
AMIGO EXEMPLIFIQUE MELHOR O QUE DESEJA POIS EU TENHO USADO O LOADFROMFILE ALGUMAS VEZES E ACHO QUE POSSO LHE AJUDAR..
- VOCE DESEJA GRAVAR NO DIRETORIO CORRENTE DO ARQUIVO?
O QUAL NAO E LOCALIZADO
CASO PUDER ME MANDE UM EXEMPLO DO CODIGO
- VOCE DESEJA GRAVAR NO DIRETORIO CORRENTE DO ARQUIVO?
O QUAL NAO E LOCALIZADO
CASO PUDER ME MANDE UM EXEMPLO DO CODIGO
GOSTEI 0
Joaomw
25/04/2003
O que eu desejo é ler um arquivo que se encontra em uma subpasta do diretório em que se encontra o meu executável, mas para isso não quero colocar C:\diretório em que se encontra o meu executável\subpasta\arquivo.jpg
agradeço sua atenção.
agradeço sua atenção.
GOSTEI 0
4_olho
25/04/2003
Este exemplo foi retirado do Help on-Line do Delphi 6, no tópico PlainText, LoadFromFile
procedure TForm1.FormCreate(Sender: TObject);
const
// you may need to change this path to suit your environment
Path = ´..\Demos\RichEdit\OverView.RTF´;
begin
RichEdit1.PlainText := True;
RichEdit1.Lines.LoadFromFile(Path);
RichEdit2.PlainText := False;
RichEdit2.Lines.LoadFromFile(Path);
end;
Então, deve funcionar como você deseja e imagina. Só tome cuidado com uma coisa. No exemplo que você deu, se seu executável está em Pasta, vai dar erro, pois ..\ significa a pasta corrente.
procedure TForm1.FormCreate(Sender: TObject);
const
// you may need to change this path to suit your environment
Path = ´..\Demos\RichEdit\OverView.RTF´;
begin
RichEdit1.PlainText := True;
RichEdit1.Lines.LoadFromFile(Path);
RichEdit2.PlainText := False;
RichEdit2.Lines.LoadFromFile(Path);
end;
Então, deve funcionar como você deseja e imagina. Só tome cuidado com uma coisa. No exemplo que você deu, se seu executável está em Pasta, vai dar erro, pois ..\ significa a pasta corrente.
GOSTEI 0
Afb
25/04/2003
Amigo isto e feito apenas uma vez no executavel e ele ja altera o diretorio
que colocou como padrão
mais simples
[color=red:ff384685b2]ChDir:= ´C:\diretorio1\diretorio2´[/color:ff384685b2]
ou um procedimento mais complicado
[color=blue:ff384685b2]procedure ChDir(S: string);
Troca o diretório corrente para o diretório especificado em S.
begin
{$I-}
{ Change to directory specified in Edit1 }
ChDir(S);
if IOResult <> 0 then
MessageDlg(´Cannot find directory´, mtWarning, [mbOk], 0);
end;[/color:ff384685b2]
que colocou como padrão
mais simples
[color=red:ff384685b2]ChDir:= ´C:\diretorio1\diretorio2´[/color:ff384685b2]
ou um procedimento mais complicado
[color=blue:ff384685b2]procedure ChDir(S: string);
Troca o diretório corrente para o diretório especificado em S.
begin
{$I-}
{ Change to directory specified in Edit1 }
ChDir(S);
if IOResult <> 0 then
MessageDlg(´Cannot find directory´, mtWarning, [mbOk], 0);
end;[/color:ff384685b2]
GOSTEI 0