Código: Selecionar todos
IF DIRCHANGE("\DADOS") == -3
ALERT("NÃO FOI POSSIVEL ACHAR O DIRETORIO")
ENDIFCódigo: Selecionar todos
LOCAL acTabla:= DIRECTORY( ( “D:\*.*” ) , “D” ) // D = Diretorio
LOCAL lTem := .F.
LOCAL nI
FOR nI := 1 TO LEN( acTabla )
cNombre := ALLTRIM( acTabla[ nI , 1 ] )
IF ( cNombre == “TESTE” ) // O qualquer outro diretório
lTem := .T.
EXIT
ENDIF
NEXT nI
IF lTem
ALERT( “O diretório existe” )
ELSE
ALERT( “O diretório não existe” )
ENDIFCódigo: Selecionar todos
aDir:=DIRECTORY("C:\TESTE.","D")
IF LEN(aDir)>0
ALERT("Diretório existe...")
ELSE
ALERT("Diretório NAO existe...")
ENDIFCódigo: Selecionar todos
C:\ TESTE // arquivo
TESTE1 // Pasta
WINDOWS // pastaCódigo: Selecionar todos
LOCAL acDir := DIRECTORY( ( "C:\*.*" ) , "D" )
LOCAL lTem := .F. , nI , nLen := LEN( acDir ) , cNomeDir
FOR nI := 1 TO LEN( acDir )
cNomeDir := ALLTRIM( acDir[ nI , 1 ] )
IF ( ( cNomeDir == 'TESTE' ) .AND. ( acDir[ nI , 5 ] == 'D' ) ) // D=diretorio
lTem := .T.
EXIT
ENDIF
NEXT nI
IF lTem // Existe la carpeta buscada
ALERT( 'EXISTE' )
ELSE
ALERT ( 'NAO EXISTE' )
ENDIF
RETURN NILCódigo: Selecionar todos
aDir:=DIRECTORY("C:\TESTE.","D")Código: Selecionar todos
aDir:=DIRECTORY("C:\TESTE\*.","D")Código: Selecionar todos
IF ! File( "Teste\*.*" ) // é necessário colocar o \*.* após o nome da pasta
Alert( "Pasta não encontrada!" )
ENDIFSó irá funcionar corretamente, apartir do momento que exista ao menos um arquivo nesse diretório. Se o diretório acabou de ser criado e não contém nenhum arquivo dentro dele, irá dar como inexistente. O que não corresponderia, pois uma pasta ou diretório não deixa de ser "um arquivo" (com caracteristicas diferentes, mas no final é um arquivo) veja conceito no Wikipédia. Portanto a forma mais segura é a indicação do Toledo:alxsts escreveu:Creio que a forma mais simples e rápida para se verificar a existencia de uma pasta é usando a funcão File(), como no exemplo abaixo:
Código: Selecionar todos
IF ! File( "Teste\*.*" ) // é necessário colocar o \*.* após o nome da pasta Alert( "Pasta não encontrada!" ) ENDIF
Código: Selecionar todos
aDir:=DIRECTORY("C:\TESTE\*.","D")
IF LEN(aDir)>0
ALERT("Diretório existe...")
ELSE
ALERT("Diretório NAO existe...")
ENDIF