I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
var KopiTil : string; begin KopiTil:=Edit1.Text+'\'+ExtractFileName(Label1.Caption); if not copyfile(PChar(Label1.Caption),PChar(KopiTil),false) then ShowMessage('Filen ikke kopieret. Fejl kode: '+IntToStr(GetLastError)); end;
Hvis KopiTil ikke indeholder mere end Michael-Schou\ så kan det ikke passe at Label1.Caption indeholder C:\Temp\Test.Txt. Hvis Label1 indeholder det du skriver så bliver KopiTil sat til Michael-Schou\Test.Txt
var KopiTil : string; begin KopiTil := ExtractFilePath(Application.ExeName)+Edit1.Text+'\'+ExtractFileName(Label1.Caption); if not copyfile(PChar(Label1.Caption),PChar(KopiTil),false) then ShowMessage('Filen ikke kopieret. Fejl kode: '+IntToStr(GetLastError)); end;
Det virker nu :-)
Mange tak for hjælpen kronning - smid et svar og du får point :-)
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
