Função para criar pasta com subpasta ?

[Softwhouse]

Existe alguma função no Harbour que crie a pasta e subpastas de uma vez só? Com DirMake tem que criar primeiro e a cada subpasta novo comando.

[bencz]

Documentação do xHB

Código: Selecionar todos

// The example demonstrates how to create nested sub-directories
// in the current directory

   PROCEDURE Main
      LOCAL i, j, aSubDir, cSubDir, nError
      LOCAL aNewDir := { ;
         "payments\salaries"  , ;
         "payments\purchases" , ;
         "customer\marketing" , ;
         "customer\orders"    , ;
         "customer\support"     }

      FOR i:=1 TO Len( aNewDir )
         cSubDir := CurDrive()+ ":\" + CurDir() + "\"
         aSubDir := HB_ATokens( aNewDir[i], "\" )

         FOR j:=1 TO Len( aSubDir )
            cSubDir += aSubDir[j] + "\"

            nError := MakeDir( cSubDir )
            IF nError == 0
               ? "Directory", cSubDir, "successfully created"
            ELSEIF nError == 5
               ? "Directory", cSubDir, "exists already"
            ELSE
               ? "Error for", cSubDir, LTrim( Str( nError ) )
            ENDIF
         NEXT j
      NEXT i

   RETURN

[Toledo]

Você pode usar também a função hb_DirBuild, veja um exemplo:

Código: Selecionar todos

cDir:="c:\dir1\dir2\dir3"
hb_DirBuild( cDir )

Abraços,

[Softwhouse]

Muito obrigado pelas prontas respostas Bencz e Toledo. Toledo, era exatamente isso que precisava, muito obrigado e abraços.

[rochinha]

Amiguinhos,

Vivendo e aprendendo. Até eu gostei disto.