mapper og tegn

1) MkDir(Edit1.text);

3) RmDir(Edit1.text);

4)

Const
  Gyldig : set of char = ['A'..'Z','a'..'z','0'..'9'];

procedure TForm1.Edit1Change(Sender: TObject);
var
  i: integer;
begin
  Label1.caption := '';
  for i := 1 to length(edit1.text) do
    if (edit1.text[i] in Gyldig) then
      label1.caption := label1.caption + edit1.text[i]
    else
      label1.caption := label1.caption + '_';
end;

Hvad skal jeg skrive hvis jeg nu vil lave mappen ( 'hej' ) om til 'hej2'

1. createdir('c:\nymappe');

2. if FileExists('c:\nymappe') then showmessage('Mappen eller filen findes') else Showmessage('Mappen eller filen findes ikke');

3. DeleteFile('c:\nymappe');

Du omdøber en fil eller mappe således:
RenameFile('c:\nymappe','c:\nymappe2');

Ikke helt enig:

1)
ForceDirectories() (laver en hel sti om nødvendigt)

2)
DirectoryExists()

3)
RemoveDir() (forudsætter at kataloget er tomt)

4)
Som hreiff's svar, men i stedet for at reallokere Label1.caption alt for mange gange, så kopier strengen og udskift tegnene i denne.

/doctorseb!

Rename katalog:

MoveFile()

doctorseb - der er flere løsninger på samme problem :)

hvad skal jeg skrive hvis det er en mappe ( movefile )

dcgeek >> bestemt, men punkt 2 og 3 i dine svar virker bare ikke med kataloger (Delphi 6) :)