Kopierer filer ved buttonclick til kilde som er i Edit2

Det skal være sådan at man kan ændrer teksten i edit2 så der skal ikke bare stå C:\\Programmer\\EasyWriters i soucekoden ;).....

Mht. at kopiere filerne, så kig lidt på dette eksempel som borrisholt har lavet !

http://borrisholt.com/FileIO/DelphiSource/Filehandling.zip

Og så skal du jo så bare skifte f.eks. CopyFiles(\'C:\\C++\\*.*\', \'C:\\Jens\\\'); ud med CopyFiles(\'C:\\C++\\*.*\', edit2.text);

gauge2 kender jeg desværre ikke noget til !

Snowball

Jamen hvad er hele koden????
Altså hvis det skulle være i en button1?

procedure TForm1.Button1Click(Sender: TObject);
begin
  CopyFiles(\'C:\\C++\\*.*\', edit2.text);
end;

Det virker ikke???
Den siger at:
[Error] Unit1.pas(45): Undeclared identifier: \'CopyFiles\'
[Fatal Error] Project1.dpr(8): Could not compile used unit \'Unit1.pas\'
Hvad kan det skyldes?

Tro det er fordi du ikke har tilføjet filehandling.pas fra http://borrisholt.com/FileIO/DelphiSource/Filehandling.zip til projektet !

Snowball

Eller også har du glemt at skrive Filehandling under uses !?

Snowball

Kig lidt på dette eksempel jeg lige hurtigt har strikket sammen:

http://home1.inet.tele.dk/j-cgeert/copyfile.zip

Snowball

Du kan også bare bruge denne måde !

Procedure FileCopy(Const sourcefilename,targetfilename: String);
Var
  S,T: TFileStream;
Begin
  S := TFileStream.Create(sourcefilename,fmOpenRead);
  try
    T := TFileStream.Create(targetfilename,fmOpenWrite or fmCreate);
    try
      T.CopyFrom(S,S.Size);
    finally
      T.Free;
    end;
  finally
    S.Free;
  end;
end;

procedure TMainForm.button2Click(Sender: TObject);
begin
FileCopy(\'c:\\fil.fil\',edit2.text);
end;

Skulle lige være et svar =)

Nu er jeg altså ikke helt så meget inde i Delphi så hvor skal :
Procedure FileCopy(Const sourcefilename,targetfilename: String);
Var
  S,T: TFileStream;
Begin
  S := TFileStream.Create(sourcefilename,fmOpenRead);
  try
    T := TFileStream.Create(targetfilename,fmOpenWrite or fmCreate);
    try
      T.CopyFrom(S,S.Size);
    finally
      T.Free;
    end;
  finally
    S.Free;
  end;
end;

stå henne!!!!!!!!!????????

Det hvor du vil ha den til at stå !

prodoc>> efter linien : {$R *.DFM}

/SpEeDy

unit Main;

interface

uses
  Windows, Classes, Forms, SysUtils, Controls, StdCtrls, FileCtrl, ComCtrls;

type
  TForm1 = class(TForm)
  private
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

her !

husk lige at du også skal havde \"FileCtrl\" i uses !

Den siger stadig den samme? altså med fejl!!! Er du sikker på at det virker!!!

ja det er jeg !

hvad er fejlen ?

prodoc: Har du prøvet mit eksempel ??? Hvis du har, hvad er det så du ikke kan finde ud af ???

Snowball

Undskyld Snowball jeg havde ikke set dit eksempel!!!
Men sourcekoden virker ikke!
Der står en masse med violation når jeg prøvet at åbne projektet....
Men ud fra exe filen kan jeg se at den ikke ligner min helt!!!
Ved mig er der en Edit2 øverst med destination som tekst...
Under den er der en Gauge (Proceslinie - Men efter hvad jeg har hørt er det kun helt professionelle der kan finde ud af det så ;) )
Og derunder er der en Button1 som sætter processen i gang. altså kopiere filerne fra en kilde som står i sourcen til den destination der står som tekst i Gaugen!!!!

Jeg kender som sagt ikke noget den der Gauge, men jeg har ikke nogen problemer med det eksempel jeg har lavet.

Kan du ikke prøve og maile dit projekt til mig, så skal jeg nok lige ta\' en kigger på det !? Mail det til snowball@it.dk !

Snowball

JO men det bliver først senere desværre har ikke lige tid lige nu!

Nu vil det godt virke med dit eksempel men kun med koden CopyFiles(edit1.text, edit2.text); ikke CopyFiles(D:\\123\\*.*, edit2.text); ????

Hey nu virker det jeg kom bare til at skrive en af koderne forkert :) WUPS!!!!
Men når den kopierer kommer der jo en Windows Dialog frem kunne man ikke få den til at gå væk og så bare at der ikke kom noget (For gauge er jo udelukket ;) )

Det ved jeg faktisk ikke om man kan med den funktion som borrisholt har lavet !

Men du kan også bruge et direkte API kald som hedder Copyfile, men det er bare et helvede og bruge hvis du skal kopiere mere end en fil da du så selv skal finde ud af hvor mange filer der ligger i folderen og så skal du også bruge ting som FindFirst, FindNext osv. !

Snowball

snowball >> Selvfølgelig kan man bruge Wildcars i den filhåndterings funktioner der findes i det nævnte eksempel prøv feks at skrive

CopyFiles(\'D:\\123\\*.*\', edit2.text); (Husk plingerne (\') prodoc)

hvor Edit2.text fx. kan være C:\\Destination

Det jeg har lavet er blot en wrapper omkring Windows API\'ens TSHFileOpStruct. Ud over de så skulle det vel heller ikke være så svært at skrive en selv.

prodoc>> Hvis vi så skal vende tilbage til dit oprindelige spørgsmål, så for at besvare det skal vi lige have nogle ting på plads :

Hvis du skal kopiere en fil skal du vide hvor fra og hvor til ..... Da du ikke skriver noger on dit kilde biblotek vil jeg i det efter følgende formode det er D:\\123 Altså et biblotek direkte i roden af dit D: drev ved navn 123.


Nå men du downloader filen http://borrisholt.com/FileIO/DelphiSource/Filehandling.zip. Pakker den ud og finder filen FileHandling.pas kopierer den over sammen med de andre filer der danner dit project.

Så i toppen af din unit der indeholder din form skriver du i forlængelse af de andre uses clausuler tilføjer du filehandling. altså sådan at ofrst at hvis du har et standart projekt så ser de første linjer såleses ud :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;


Dem ændere du til at se således ud :
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, FileHandling;

Så mangler vi bare at implemtere selve kopieringen :

på Button2Click skriver du :

procedure TForm1.Button2Click(Sender: TObject);
begin
  CopyFiles(\'D:\\123\\*.*\', edit2.text);
end;


Husk nu de plinger (\') ellers får du nogle underlige fejl meddelser ....

Jens B

borrisholt: Da jeg skrev \"Det ved jeg faktisk ikke om man kan med den funktion som borrisholt har lavet !\" så var det et svar til om man kunne fjerne den boks der kommer frem (Copying Files...) når man kopiere filerne!!!

Jeg ved godt at man kan bruge wildcards. Har selv tidligere brugt din FileHandling med stor succes i mine egne programmer ;) (og tak for det!)

Snowball

Snowball >> Den største fornøjelse er da alligevel folk som dig der åbenlyst har stor glæde af noget af mit arbejde .. Så tak for det ...

Som jeg skrev så bygger uniten på en wrapper omkring TSHFileOpStruct, som i C++ hedder SHFILEOPSTRUCT. Med den viden kan du faktisk slå den op i Online hjælpen. Så vil du se at hvis du ønsker at fjerne den dialog der dukker op når du kopierer så er det blot er spørgsmål om at stoppe flaget FOF_SILENT på ....

God fornøjelse med det

Jens B

borrisholt: Tak for den info. Så lærte jeg også noget idag ;)

Jeg kunne dog ikke umiddelbart finde noget om det hverken i Delphi\'s hjælp eller på search.borland.com men fandt noget om det på en anden side (http://ddelphi.hypermart.net/delphi/files.html)

Snowball

snowball  >> Vil det sige at hvis du inde i din Delphi skriver SHFILEOPSTRUCT og så trykker F1 så får du ikke online hjælpen på dette område ? I bekræftendefald skal du rebuilde hele dit hjælpe system ...

Jens B

borrisholt: Whoops! Jeg søgte kun direkte i hjælpen og ikke ved at skrive det i koden og så trykke F1 ;)

Det er da egentlig lidt træls at det ikke gi\'r samme resultat !? OK, det er måske ikke lige en af de ting man bruger hver dag, men alligevel !

Snowball

Store dele af Delphi\'s hjælp omkring Windows API er foræller eller mangelfuld alligevel, så etenlig betyder det ikke så meget ... Brug i stedetfor den til enhvertid nyeste MSDN ...

Jens B

Tjaa, det er nok en go\' idé ;)

Snowball

OKay godt mit spørgsmål er blevet et åbent chatboard ;) Men nu hvor borrisholt er kommer til, ku det være at du vidste hvordan man kunne følge kopierings-processen via en Gauge! (Procent linie).... Altså man trykker på button1 den begynder at kopiere fil(erne) til den mappe som står i Edit2-text samtidig aktiverer den en eller 2 gauges der viser \"Process This File\" og \"Process Total\"? Kunne det lade sig gøre???? Det ville være rimelig dejligt hvis i vidste eller kunne finde ud af det (er villig til at sætte flere point på spil ;) )

prodoc>> Det kan jeg godt vise dig ... Det er såmendt ikke så svært, men det kræver en masse kode, omkring 500 linjer ... Idet der skal skrives et par søge algoritmer ... Men hvis du insisterer (points) så vil jeg da gerne ....

Er der nogen grund til ikke bare at lade Windows klare det for dig ?

Jens B

Borrisholt> Ja det er fordi jeg er ved at lave et installations program til et lille hjemmelavet skriveprogram (Rimelig primitivt!!!! ;) ) og så vil jeg gerne lave at det ser professionel ud..... Med en Gauge osv... og at den ikke benytter Windows default......
Grunden til at jeg ikke bruger et installprogram der laver det hele for mig er at jeg har en helt speciel íde til design til installations programmet ;)

Send en e-mail til Jens@Borrisholt.com så sender jeg dig projektet ....

Det er ikke helt per fekt, men viser dig hvordan man gør ...

Jens B

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ProgressBar1: TProgressBar;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var FileArray1, FileArray2: Array of String;
    Filename1,Filename2: String;
    i: Integer;
begin
ProgressBar1.StepBy(1);
FileArray1[1]:=\'.\\Thisfile.txt\';
FileArray1[2]:=\'.\\Pjoject1.exe\';
{etc. ...}
FileArray2[1]:=\'\\Thisfile.txt\';
FileArray2[2]:=\'\\Project1.exe\';
{etc...}
For i:=1 to 100 do
begin
  Filename1:=FileArray1[i];
  Filename2:=Edit2.Text + FileArray2[i];
  CopyFile(PChar(Filename1),PChar(Filename2),True);
  ProgressBar1.StepIt;
end;
end;

end.

Slepyee> Jeg tror koden virkede i starten men der ved:
FileArray1[1]:=\'.\\Thisfile.txt\';
FileArray1[2]:=\'.\\Pjoject1.exe\';
{etc. ...}
FileArray2[1]:=\'\\Thisfile.txt\';
FileArray2[2]:=\'\\Project1.exe\';

er det med Pjoject1.exe en fejl eller med vilje?????
Du ville vel ikke gøre mig en tjeneste at sende den form der helt sikkert virker med at når man trykker på button1 så kopierer den en fil (FX. /EasyWriters/*.*) til den mappe som står som tekst i Edit2?????

Jeg skal se hvad jeg kan gøre... Men det kommer nok til at tage et stykke tid, da jeg ikke sidder ved en \"Delphi computer\" lige nu!!!
Du hører nærmere i dag...

P.S.: Det andet var bare en tastefejl!!!

Tak for det!

Borrisholt> Wau det er lige det jeg ville have men hvordan kan det være at når jeg ændrer den adresse til en anden fx:

  Form2.Show(\'C:\\Programmer\\Borland\\Delphi5\\Projects\\\',\'C:\\hest\\\');
til
  Form2.Show(\'\\EasyWriters\\\',\'edit2.text\');

Kan man ikke godt skrive det sådan hvis det skal ligge på en cd??? (\\EasyWriters\\?

Og hvad skal man ændrer i koden for at de 2 gauges er i samme form som button2 ???
Håber ikke jeg er for besværlig....(Men jeg lover dig, at hvis du vil gøre det så kommer der sikkert en lille julebonus.... ;) )

Slepee> Du skal osse nok få din fortjeneste, hvis du bare lige gad skrive et svar så kunne jeg give dig nogle trøstepoints når jeg engang er færdig med at få hjælp :)

prodoc>> nej den kan ikke arbrjde med relative stier .. Det kunne du jo etv selv lave ....

Lidt hjælp til det kan du da godt få :

der findes en funktion der hedder GetCurrentDir som retunerer dig det nuværende biblotek, uden backslash ...

Der udover så \' (plinger) brugen kun når du har en streng der skal se præcis sådan ud : så hvis du skriver

var
  s : String;

s:= \'Edit2.Text\';

Så ligger værdien af Edit2.Text IKKE i s, men der i mod en streng bestående af bogstaverne E d i t 2 . t e x t

skal du kopiere værdien af Edit2.text ind i en streng så skal du skrive :

var
  s : String;

s:= Edit2.text;

Følger vi det her lidt videre så bliver :
  Form2.Show(\'\\EasyWriters\\\',\'edit2.text\');
til
  Form2.Show(GetCurrentDir+\'\\EasyWriters\\\',edit2.text);

Det skulle vist være enden på dette spørgsmål.

Jens B

Jamen så giv mig lidt trøstepoint!!! :)
Jeg ville ellers gerne give dig et eks. men jeg havde travlt i går! :( Sorry!

Borrisholt> Jamen det er hvis det skal ligge på en cd (Jeg vil prøve at lave en helt cd med installation osv...)
Så skal cd\'en se således ud:
\\EasyWriters\\
install.exe
autorun.inf
Help.txt
Så den skal fra installationsmenuen kunne kopiere mappen \\Easywriters\\ til den mappe som står i Edit2??????????????

Sleepy>jamen kan du lave en model med 2 gauges ?

Jeg kan ikke forstå hvad der er galt, jeg kan godt starte projektet men når jeg prøver at trykke på button1 viser den siger følgende fejl:
Project Project1.exe raised exception class EInOutError with message \"invalid filename\". Process stopped. Use Step or Run Continue  ?????????????

prodoc  >> Du er HELT grøn inden for faget eller hvad ?

Hvad der sker på din maskine er svært at spå om .... Du skal der imod bruge Debuggeren til at finde ud af hvad der er sket ....

EOA (End of answer)

Jens B

prodoc>> M.H.T. \"Project Project1.exe raised exception class EInOutError with message \'invalid filename\'. Process stopped. Use Step or Run Continue\" - betyder at du har angivet et forkert filnavn og kopiere! Den kan ikke finde filen(eller der opstod en anden form for IO-fejl) og beder dig Trykke \"Run\" eller \"Continue\" for at fortsætte programudførelsen! Dette skyldes Windows\'s PM (Protected Mode) udførsel... Hvis ikke den blev udført m. PM ville programmet bare fortsætte og lave \"ged i den\"! -Mildest talt! :)
------------
prodoc>> Hvad mener du med TO Gauges?? Mener du sådan at den ene Gauge (\'1\') Viser hele installationsprocessen, og den anden (\'2\') Viser den enkelte fil\'s process??? I det tilfælde skal du bruge API-functionen CopyFileEx() . eller lave en kopierings-funktion selv! Og det er temmelig besværligt, og er ikke at foretrække, da det så vil undertrykke de \'Sikre\' API kald!

Borrisholt> Jeg er ikke helt \"grøn\" inden for delphi men jeg har aldrig lavet et så stort projekt før. Men ville det være meget svært at gøre det sådan at der i den der \"FileCopy\" at der i form 1 var en \"Edit2\" som styrede hvor den skal kopiere filerne hen? (Det vi snakkede om tidligere)????

Slepee>Jeg vil gerne have et installations program hvor der er en edit 2 2 gauges (Ja den ene skal vise total process og den anden viser hvor langt den er nået med Den ene fil den er ved at kopiere! - Såi bunden skal der være en button2 som sætter \"kopier filerne til den mappe som er skrevet som tekst i edit2!) Håber du forstår hvad jeg mener?

Jeg tror jeg ved hvad du mener!!! Jeg laver dig et projekt som du kan arbejde videre med!!! :)
Er du så glad nu???

Hvad er din e-mail så???
Hvis jeg skal sende dig projektet

prodoc>> Det der med CD\'en og edit2 har jeg allerede besvaret en halv snesgange, men lad mig da bare gøre det igen ....

Du tager mit projekt som du fik det fra mig ... så vil du gerne kopiere de filer der ligger i .\\EasyWriters\\ til hvad nu brugeren har skrevet i Edit2 ! Right ?

skriver du blot :
Form2.Show (GetCurrentDir+\'\\EasyWriters\\\',edit2.text);

Jens B

borrisholt>> Hvad er det for noget med Form2.Show(\'Et eller andet!\',Edit2.Text); Hvad gør det? Ændrer det bare Teksten for Edit2?

slepee>> Jeg har sendt prodoc et projekt der kunne præcis det han bad om ... I den har jeg oversyret show proceduren på den form det laver det hele ... den nye show procedure vil have to argumenter : en kilde og en destination ....

Jens B

Umiddelbart synes jeg selv det var klart tale, men nu runder vi snart 60 indlæd i dette simple spørgsmål ....

Jeg vil hermed trække mig fra spørgsmålet i det vi ingen steder når !

Jens B

EJ Borrisholt.......
Undskyld jeg er så inkompetent... :)
Nå men tak for hjælpen (Og du skal osse få en julegave... ;) )

Slepee> min e-mail er følgende pro_doctor@hotmail.com ... Takker

Her er løsningen på problemet:

procedure TForm1.Button1Click(Sender: TObject);
var
  FOS :TSHFileOpStruct;
begin
  with FOS do begin
    Wnd := Self.Handle;
    wFunc := FO_COPY;
    pFrom := PChar(Edit1.Text);
    pTo := PChar(Edit2.Text);
    fFlags := FOF_NoConfirmMkDir;
  end;
  SHFileOperation(FOS);
end;

I de to Edit1 skal teksten f.eks. stå sådan: d:\\documents\\*.* og i Edit2: e:\\documents and settings\\administrator\\desktop uden backslash.

Dette vil åbne windows\' copy file vindue og her står både kopierede filnavne og der er en gauge.
Her vil der både kopieres filer + sub-dir\'s.

Og husk at implementere ShellAPI i uses.!

zill_eye >> Det viste sig at vores gode ven prodoc selv ville foretage kopieringen .. og derfor kan windows API\'en ikke bruges, som ellers foreslået af ubtertegnede 08/01 2001 08:38:47 .. Jeg sendte manden et eksempel der gjore præcis som han ønskede .... Og så døde det hele ...

Jens B

Jamen I må undskylde men jeg er ikke helt inde i Delphi endnu, som Borrisholt har hentydet til... Så derfor har jeg sat pointsne op til 100 i stedet for. Så at der igen vil være lidt udfordring ved spørgsmålet....
zill_eye>Og tak for dit indslag men som Borrisholt har sagt er det ikke helt den process jeg leder efter...
Hvis du vil kunne du se et screenshot jeg lige hurtigt har lavet...
http://home9.inet.tele.dk/tman/Filer/easyw.jpg
TAK!

prodoc>> Jeg har sendt dit et nyt eksemple .. Eller nyt er det ikke jeg har bare selv kopieret kode fra en unit til en anden ....

Jens B

Borrisholt> Tak for det!!! Bruger Du Delphi4? og vil det gøre en forskel?

Hvorfor siger den det her?
Project Project1.exe raised exception class ElnOutError with message \"I/O error 32\". Process stopped. Use Step or Run to continue.

Eller skal jeg installere de 2 pas filer som komponenter?

prodoc  >> Nej jeg bruger Delphi 5. Det to units er ikke komponenter, men blot almindelige pas filer ....

Hvorfor det ikke virker på din maskine er ikke godt at vide ... prøv at debugger dig i gennem det og se hvor den fejler ....

Som sagt er jeg temmelig træt af denne chat session!

Jens B

For dælen drenge ! Troede sq dette spørgsmål var blevet lukket for længe siden ! Prodoc har da efterhånden fået en del løsninger på hans problem !

Snowball

Snowball >> Mindst 400 men lige lidt hjælper det !

Jens B

Ja jeg ved det godt!
men den siger altså at der er fejl ved:
Reset (fromFile,1);
Men efter at den viser problemet kan jeg godt trykke RUN igen, men så efter lidt tid siger den det samme problem igen, det som jeg skrev i  \"30/01 2001 21:55:32\"
Hvad kan det være?   

Hey Borrisholt, det virker nu!!!
Man skulle åbenbart ignorere de run fejl den sendte når man prøver at RUN! for når man kører EXE filen ude for delphi så virker det!!!!!!!!! :)
Men den der Status memo kan jeg ikke gemme slette den????

Kan jeg ikke bare skrive:
Go    (\'C:\\Documents and Settings\\Administrator\\Skrivebord\\Delphi\\FileCopy\\EasyWriters\\\',\'edit2.text\');

I stedet for
Go    (\'C:\\Programmer\\Borland\\Projects\\\',\'C:\\Hest\');

Hvis jeg gerne vil have at den til at kopierer filerne i C:\\bla bla bla til den mappe som står i edit2.text?

Den siger nemlig \"Can\'t create directory\"!!!

prodoc  >>

\"Kan jeg ikke bare skrive:
Go    (\'C:\\Documents and Settings\\Administrator\\Skrivebord\\Delphi\\FileCopy\\EasyWriters\\\',\'edit2.text\');

I stedet for
Go    (\'C:\\Programmer\\Borland\\Projects\\\',\'C:\\Hest\'); \"

Nej næsten hvis du jævnfør mit svar af 08/01 2001 08:38:47, vil du se at du skal skrive
Go    (\'C:\\Documents and Settings\\Administrator\\Skrivebord\\Delphi\\FileCopy\\EasyWriters\\\',edit2.text);  UDEN plinger.

Jens B

Yes nu virker det næsten ;)
Men - når jeg tager en mappe fra DirectoryListboxen skriver den fx. C:\\Programmer\\123
i edit2\'en - og det må den ikke for så kommer alle de filer jeg kopierer nemlig ind i C:\\Programmer\\ og så hedder alle filerne 123project1.exe (altså alle filernes navne starter med 123?) kan jeg ikke få den til at skrive \\ til sidst i edit2.text efter kilden så der kommer til at stå C:\\Programmer\\123\\ ?

Og så har jeg lige det sidste ? kan man ikke indstille sin directoryListbox til at opdaterer hver gang der er gået et vis antal sek? sådan at hvis man har lavet en ny mappe så finder den ud af det med det samme, i stedet for at man skal genstarte programmet før end at den finder de nye mapper?

Du jager den gennem den her ...

Function AddTailingSlash(sonst s : String)
begin
  Result := s;
  if not s[length(s)] = #92 then
    Result := Result +  #92;
end;

Jens B

Hvilken en DirectoryListboxen? og hvor skal koden stå henne for jeg har prøvet DirectoryListboxen og Edit2 men det vil RUN-processen ikke godtage?

prodoc>> Fik vi nogen sinde en afgørelse her .. Eller skal vi gennem endnu en chat session ?

Jens B

Borrisholt> Jamen \"Chat sessionen\" bliver jo ikke kortere, når du hele tiden svarer med en kommentar ;) Men det hele virker nu mangler bare lige at få den til at skrive det backslash i den edit2!!!!!! Og så kunne det være dejligt hvis man kunne få DirectoryListboxen til at opdaterer hver gang man går ind i en ny mappe!

Det første har jeg svaret på (01/02 2001 16:15:39). Det andet fører ingen stederhen at begynde at besvare.

spørgsmålet er LUKKET !

Jens B

OKay forstår..
Takker for hjælpen!!!