Discussion :

[pierrot67]

Bonjour

J'ai un chemin dans mon appli qui fonctionne et qui est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

OpenPictureDialog1.InitialDir:=('Z:\trombinoscope\Photos 2014-2015\'+(dbedit2.text)+'\REDIMENSIONNEES');

Mais je voudrais quelque soit la lettre de mon lecteur accéder au répertoire défini par mon code.
J'ai essayé mais le code ci-dessous ne marche pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

OpenPictureDialog1.InitialDir:=('..\Photos 2014-2015\'+(dbedit2.text)+'\REDIMENSIONNEES');

Pourriez-vous m'aider?

[Roland Chastain]

Bonjour ! C'est un seul point qu'il faut :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

OpenPictureDialog1.InitialDir := ('.\Photos 2014-2015\'

[pierrot67]

Merci

Mais cela ne fonctionne pas! j'arrive bien à la Racine de Z:\trombinoscope mais pas dans les dossiers " Photo 2014-2015" et "REDIMENSIONNEES"

[jeromelef2]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

IncludeTrailingPathDelimiter( ExtractFilePath( Application.Exename )) + 'Photos 2014-2015\'

[Cirec]

Salut,

pour être certain d'utiliser un chemin relatif fonctionnel utilise plutôt ce bout de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
  {external PathRelativePathToA in ShlwApi.dll} 
  {http://msdn.microsoft.com/en-us/library/bb773740(VS.85).aspx} 
function PathRelativePathTo( 
  pszPath: PAnsiChar;  {Buffer de sortie (MAX_PATH (260) de taille minimum} 
  pszFrom: PAnsiChar;  {Chemin où fichier de départ (MAX_PATH de taille max} 
  dwAttrFrom: DWORD;   {Détermine si pszFrom désigne 
                          -un répertoire -> FILE_ATTRIBUTE_DIRECTORY 
                          -où un fichier -> 0} 
  pszTo: PAnsiChar;    {Chemin où fichier de déstination (MAX_PATH de taille max} 
  dwAttrTo: DWORD):    {Idem que dwAttrFrom} 
  BOOL; stdcall; external 'shlwapi.dll' name 'PathRelativePathToA'; 
 
procedure TForm1.Button1Click(Sender: TObject); 
var PPath: array[0..MAX_PATH-1] of AnsiChar; 
    sFrom, sTo: string; 
begin 
  sFrom := 'C:\CodeS SourceS\DelphiFr\CS Test\Snippets\RelativePath'; 
  sTo := 'C:\CodeS SourceS\DelphiFr\CS Codes\Teste.txt'; 
  if PathRelativePathTo(@PPath, PAnsiChar(sFrom), FILE_ATTRIBUTE_DIRECTORY, 
  PAnsiChar(sTo), 0) then 
  Label1.Caption := PPath; {Renvoie '..\..\..\CS Codes\Teste.txt'} 
end;

[pierrot67]

Je pense que j'ai oublié quelque chose il me dit : extractpathfile identificateur non déclaré

[Barbibulle]

Peut être que ExtractFilePath comme indiqué marche mieux que ExtractPathFile qui n'existe pas ?

[pierrot67]

Merci à tous

ça marche vous n'en n'auriez pas douté n'est ce pas?

Bon weekend