Create folder each Drive in Delphi

// Helper Methods
function IsLogicalDrive(Drive: char): boolean;
var
  cDrive: char;
begin
  cDrive := UpCase(Drive);
  if cDrive in ['A'..'Z']
  then
    Result := (GetLogicalDrives And (1 Shl (Ord(cDrive) - Ord('A')))) <> 0
  else
    Result := False;
end;

procedure createCustomDirs(folder: String; attribute: integer);
var i: Char;
    dir: String;
begin
  for I := 'A' to 'Z' do
    if IsLogicalDrive(i) then
    begin
      dir := i+':\'+folder;
      if CreateDir(dir)
        then FileSetAttr(dir, attribute);
    end;
end;
// Button Click / Implementation
procedure TForm1.Button1Click(Sender: TObject);
begin
  createCustomDirs('MyFolder', faArchive);
end;

Select allOpen in new window

thanks but error:

see http://screensnapr.com/v/xNQTPX.png

Try modifying the createCustomDirs method like that:

procedure createCustomDirs(folder: String; attribute: integer);
var i: Char;
    dir: String;
begin
  for I := 'A' to 'Z' do
    if IsLogicalDrive(i) then
    begin
      dir := i+':\'+folder;
      try // This should not be needed but try it
        if ForceDirectories(dir)
          then FileSetAttr(dir, attribute);
      except
      end;
    end;
end;

i change but error is same. any other methods?

How are you exactly using the method? (The way you have implemented it)
Your OS is Windows XP, right?

i use win 7 now.

i add two procedure and call "createCustomDirs" via TButton1

i need such code which will worl all os. (xp to win 8)

What exactly is in your TButton1 OnClick method?
Which procedures have you added?

@epasquier nice to see you. But one difficulty.

Suppose i have same name file or folder inside drive then it can not replace or create new folder.

i use FileSetAttr(myfolder/file, FILE_ATTRIBUTE_NORMAL);

Select allOpen in new window

not success

ok, first time I read your last question I didn't understood what you where talking about and had no time to try. I see now, that you say that if the directory already exists then CreateDir will return false and your attributes will not be set
Also , use of ForceDirectories can be useful if the path you want to create has more than 1 level of folder. But it does not solve the problem of the path already existing.

so, I recommend changing the code to this :

...
 for i:=1 to Length(DriveList) do
  begin
   Dir[1]:=DriveList[i];
   if DirectoryExists(Dir) Or CreateDir(Dir) 
    Then FileSetAttr(Dir, attribute);
  end;
end;

Select allOpen in new window

@epasquier thanks. and i always want something new from you.

i did this code 2 days ago. but difficulty is same.

i have a good example

Create a file in your drive (root) autorun.inf FILE and try to create a folder in same name autorun.inf as FOLDER. If autorun.inf file is exist then you can not create in same named folder. i want to craete a folder in same name forcefully. that mean it can delete that file a create new one.

...
  for i:=1 to Length(DriveList) do
  begin
   Dir[1]:=DriveList[i];
   FileSetAttr(Dir , FILE_ATTRIBUTE_NORMAL);
   DeleteFile(Dir); // just add this
   if DirectoryExists(Dir) Or CreateDir(Dir)
    Then FileSetAttr(Dir, attribute);
  end;

Select allOpen in new window

@epasquier fixed. thanks alot.

Excellent answer.

@epasquier look this issue. long time no answer

https://www.experts-exchange.com/questions/27304016/FTP-upload-for-filesonic.html