|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 17/09/2008 17:10 hs
um exemplo basico Msgbox "Pasta ja existe" End if |
|
|
|
|
|
Postada em 18/09/2008 09:17 hs
Mas com Dir não funciona em pasta compartilhada. 
já tinha tentado esse.... 
"Se fizeres o bem, não é certo que serás aceito? E se não fizeres o bem, o pecado jaz à porta, e sobre ti será o seu desejo; mas sobre ele tu deves dominar - Gênesis 4.7" 
|
|
|
|
|
|
Postada em 18/09/2008 09:23 hs
Achei um em site ingles, e dei uma ageitada no bicho...
ATé o momento funcionol beleza....
'## Função para verificar se Existe o compartilhamento
Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
Public Function ArqExiste(ByVal Arquivo As String) As Boolean
ArqExiste = (PathFileExists(Arquivo) = 1)
End Function
'## Informa se o endereço do compartilhamento existe
If ArqExiste(text1) Then
MsgBox "Endereço do compartilhamento EXISTE!", vbInformation + vbOKOnly, "ATENÇÃO"
Else
MsgBox "Endereço do compartilhamento NÃO existe!.", vbCritical + vbOKOnly, "ATENÇÃO"
End If
ALGUEM TEM ALGUMA OPNIAO
"Se fizeres o bem, não é certo que serás aceito? E se não fizeres o bem, o pecado jaz à porta, e sobre ti será o seu desejo; mas sobre ele tu deves dominar - Gênesis 4.7"
|
|
|
|
|
|
Postada em 18/09/2008 14:14 hs
TEM NÃO NÉ
CLOSE FOR YOU
"Se fizeres o bem, não é certo que serás aceito? E se não fizeres o bem, o pecado jaz à porta, e sobre ti será o seu desejo; mas sobre ele tu deves dominar - Gênesis 4.7"
|
|
|
|
