問一個小問題，在顯等待!!

Question

請問，怎樣創建一個文件夾?
例如：我要創建E:\data\data.txt,   也就是說我要在E:創建一個Data\的文件夾, 然後創建一個data.txt的文件，　多謝了!!!

Answer 1

mkdir('E:\data');
filecreate('E:\data\data.txt');

Answer 2

CerateFile(PChar('E:\data\data.txt'), 
           GENERIC_READ or GENERIC_WRITE,
           0,
           nil,
           CREATE_ALWAYS,
           FILE_ATTRIBUTE_NORMAL,
           0);

Answer 3

CerateFile(PChar('\\?\:\data\data.txt'), 
           GENERIC_READ or GENERIC_WRITE,
           0,
           nil,
           CREATE_ALWAYS,
           FILE_ATTRIBUTE_NORMAL,
           0);

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  BackupName: string;
  FileHandle: Integer;
  StringLen: Integer;
  X: Integer;
  Y: Integer;
begin
  if SaveDialog1.Execute then
  begin
    if FileExists(SaveDialog1.FileName) then
    begin
      BackupName := ExtractFileName(SaveDialog1.FileName);
      BackupName := ChangeFileExt(BackupName, '.BAK');
      if not RenameFile(SaveDialog1.FileName, BackupName) then        raise Exception.Create('Unable to create backup file.');
    end;
    FileHandle := FileCreate(SaveDialog1.FileName);
    { Write out the number of rows and columns in the grid. }
    FileWrite(FileHandle, 
      StringGrid1.ColCount, SizeOf(StringGrid1.ColCount));
    FileWrite(FileHandle, 
      StringGrid1.RowCount, SizeOf(StringGrid1.RowCount));
    for X := 0 to StringGrid1.ColCount ?1 do
    begin      for Y := 0 to StringGrid1.RowCount ?1 do
      begin
        { Write out the length of each string, followed by the string itself. }
        StringLen := Length(StringGrid1.Cells[X,Y]);
        FileWrite(FileHandle, StringLen, SizeOf(StringLen));
        FileWrite(FileHandle,
          StringGrid1.Cells[X,Y], Length(StringGrid1.Cells[X,Y]);
      end;
    end;
    FileClose(FileHandle);
  end;end