FSO/Delphi movefile met wildcards laten werken

[heuveltje]

Dit zal best wel iets heel simpels zijn wat ik over het hoofd zie, maar heb al 6 jaar geen programeer taal meer aangeraakt. en ben toch wat roestig geworden blijkbaar

Probleem : ik wil wat bestanden uit 1 directorie verplaatsen via movefile naar een andere directory
Daarvoor heb ik de volgende code in delphi :

code:

procedure TForm1.Button4Click(Sender: TObject);
var
   bron, doel : string ;
begin
   bron := 'j:\x\1\A' ;
   doel := 'j:\x2\' ;
   if FileExists(bron) then ShowMessage('bron bestaat');
   if  MoveFile(PAnsiChar(bron),pansichar(doel)) then  ShowMessage('yes') else ShowMessage('no');
end;

Dit werkt. het haalt het bestand A uit "j:\x\1" en plaatst het in "j:\x2"
So far so good

NU zou movefile ook wildcards moeten ondersteunen volgens MSDN :
source : Required. The path to the file or files to be moved. The source argument string can contain wildcard characters in the last path component only.

Maar als ik in bovenstaande proggie dan bron vervang door
bron := 'j:\x\1\*' of bron := 'j:\x\1\*.*'
Werkt het opeens niet meer

Syntactisch is het nog steeds in orde. alleen movefile failed.,
Ik weet niet of/hoe ik van movefile verdere foutmelding dan failed of succes uit kan lezen

Probeer nu al een uur dit van alle kanten te bekijken, maar het is so basic dat niks verder kan uitsplitten of bedenken

Iemand die me even een zetje in de goed richting wil geven ?

[Verwijderd]

je zit in webdev op msdn te kijken, je zou naar de win32api moeten kijken, en ik dacht niet dat die wildcards ondersteunde.

http://msdn2.microsoft.com/en-us/library/aa365239.aspx

- dus alle bestanden in een lijst stoppen
- lijst aflopen en met een tmask kijken of ze voldoen aan de wildcard

[ Voor 43% gewijzigd door Verwijderd op 02-03-2007 01:35 ]

[heuveltje]

DOH

Dacht wel dat het iets voor de hand liggends moest wezen
Krijg je ervan als je gaat googlen zonder de onderliggende basis precies te kennen
Der omheen programeren is idd niet zon heel groot probleem.
Snapte alleen absoluut niet wat ik nou fout deed

Bedankt. kan ik morgen weer ff verder klooien

[ Voor 14% gewijzigd door heuveltje op 02-03-2007 01:51 ]

[Verwijderd]

TSearchrec (met functies FindFirst en FindNext)
kan je een directory doorlopen met een (file)wildcard.
(zie delphi help)
succes

[LordLarry]

Of ShFileOperation gebruiken: http://msdn.microsoft.com...eoperation.asp?frame=true