Postada em 15/11/2007 01:07 hs
Alguém sabe uma maneira diferente das funções abaixo, e mais rápida de verificar se e possível gravar um arquivo em um determinado diretório?
Function OK(Diretorio As String) As Boolean
On Error GoTo ero
' Com a função OPEN
Open Diretorio For Output As #1
Close #1
Kill (Diretorio)
OK = True
Exit Function
End If
ero:
OK = False 'se não for possivel a criação, a função retorna falso
End Function
Function OK(Diretorio As String) As Boolean
On Error GoTo ero
' Com o FILECOPY
FileCopy App.Path & "" & App.EXEName & ".exe", Diretorio
Kill (Diretorio)
OK = True
Exit Function
End If
ero:
OK = False 'se não for possivel a criação, a função retorna falso
End Function
|
