oprette foldere på et mappet netværksdrev

Den eneste ide jeg har er at der må være noget galt med din kode.
Vis os din kode, så kan vi måske se problemet.

Hvad med rettigheder på netværket ?
Har du "lov" til at oprette mapper ?

har admin rettigheder, så det er der inten galt med. poster min kode når jeg kommer på arbejde i morgen. har ikke sendt den hjem
:-)

Hvad siger GetLastError ?

procedure TForm1.LavMappe(mappenavn : string);
var
sr : Tsearchrec ;
s,k,l : string;
I : integer;
begin
s:= mappenavn;
if FindFirst(drev + ':' + '\*.*',faAnyFile,sr) = 0 then
  begin
    while (FindNext(sr) = 0) do
    begin
      if (sr.Attr = faDirectory) then
        begin
          L :=(drev +':\' + sr.name + '\' +s) ;
          if not (sr.name=('..')) then
          if length(sr.name)< 5 then
          if not DirectoryExists (L) then
          begin
            ForceDirectories(L);
            for I:=0 to (length(mnavn)-1) do
            begin
              K:=(drev +':\' + sr.name + '\' + s +'\' + mnavn[i] + '\');
              if not directoryexists(k) then
              ForceDirectories(k);
            end;
          end;
      end;
    end;
  end;
  showmessage('done');
end;

det er den procedure som laver mapperne. har prøvet med andre kommandoer til at lave mapper også :-) hvad er det der for en GetLastError den har jeg ikke benyttet før?

Du må undskylde, men jeg synes at det er noget mystisk kode du har lavet.
Der er nogle fejl i det:
1. Du bruger FindFirst/FindNext uden at bruge FindClose. En dødssynd.
2. Sådan som du har skrevet dit loop bruger du FindFirst og umiddelbart efter kalder du FindNext, så den første fil/mappe du finder med FindFirst skipper du simpelthen. Her ligger dit problem måske.
3. Et normalt FindFirst/FindNext/FindClose loop bør se sådan her ud:
    if FindFirst(drev + ':' + '\*.*', faAnyFile, sr) = 0 then
      try
        repeat
          if (sr.Name <> '.') and (sr.Name <> '..') then
            { gør noget med sr her }
        until FindNext(sr) <> 0;
      finally
        FindClose(sr);
      end;

den kan godt være du har ret i det.. tja må ærligt indrømme at det er længe siden jeg har programmeret sidst og jo det er blevet noget rodet noget :-)især efter at jeg begyndte at rode rundt i det da det ikke virkede på netværksdrevene :-) men prøver lige at rydde op i koden og sætte en findclose ind og se hvad der så sker!

procedure TForm1.LavMappe(mappenavn : string);
var
sr : Tsearchrec ;
s,k,l : string;
I : integer;
begin
s:= mappenavn;
  if FindFirst(drev + ':' + '\*.*', faAnyFile, sr) = 0 then
    try
      repeat
        if (sr.Name <> '.') and (sr.Name <> '..') then
          begin
            if (sr.Attr = 48) then
              begin
                L :=(drev +':\' + sr.name + '\' +s) ;
                if length(sr.name)< 5 then
                  if not DirectoryExists (L) then
                    begin
                      MkDir(L);
                      L := '';
                        for I:=0 to (length(mnavn)-1) do
                          begin
                            K:=(drev +':\' + sr.name + '\' + s +'\' + mnavn[i]);
                            if not directoryexists(k) then
                            MkDir(k);
                            K := '';
                          end;
                      end;
              end;
          end;
        until FindNext(sr) <> 0;
      finally
        FindClose(sr);
      end;
end;

nu ser den sådan her ud. stadig samme fejl. Var nødt til at ændre attributten til '48' eftersom netværks drevet åbenbart har en anden directory attribut end et lokalt drev. fandt dog også ud af at jeg at enkelte af mapperne havde et problem med at give administrator adgang til oprettelse af nye mapper. men det var bare at give hovedmappen nye rettigheder så opdaterede den selv de få som der var problemer med. men nu arbejder jeg lidt videre med det selv. tak for hjælpen alle.

Det du laver med 48 er en fejl.
16 = faDirectory
32 = faArchive (arkiv attribut sat)
Der kan være andre atributter sat.
Du bør skrive
  if (sr.Attr and faDirectory) > 0 then
    {vi har et bibliotek}

tja det kan godt være det er en fejl, men det virker :-) men jeg har rettet det til noget andet og mere korrekt :-D