Função para criar pasta com subpasta ?
Enviado: 04 Nov 2013 13:59
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.
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