A voir également:
- Directory exist???
- Sys/socket.h no such file or directory - Forum C / C++ / C++.NET
- Not exist ✓ - Forum SQL
- Exist sql - Forum SQL
- Directory/contenu.php?id_cat= ✓ - Forum PHP
- If exist sql - Forum SQL
2 réponses
Private Function RepertoireExiste(MonRep As String) As Boolean
Dim myName As String
If (myName Dir(MonRep, vbDirectory)) vbEmpty Then 'On teste l 'existence du répertoire...
RepertoireExiste = True
Else
MsgBox ("le répertoire" & Chr(13) _
& Chr(34) & MonRep & Chr(34) & Chr(13) & "n'existe pas !"), _
vbExclamation
End If
End Function
Dim myName As String
If (myName Dir(MonRep, vbDirectory)) vbEmpty Then 'On teste l 'existence du répertoire...
RepertoireExiste = True
Else
MsgBox ("le répertoire" & Chr(13) _
& Chr(34) & MonRep & Chr(34) & Chr(13) & "n'existe pas !"), _
vbExclamation
End If
End Function
salut,
je sais que tu as deja eu une reponse, mais :
pour tester si la directory c:\toto existe (par la gestion des erreurs) et si oui y copier le fichier file.txt qui se trouve sur c:\
sub verif()
1
on error goto 10
chdir "c:\toto"
goto 11
10
pasbon=msgbox("Le répertoire n'existe pas",vbcritical,"interruption")
goto 20
11
on error goto 0
filecopy "C:\file.txt","C:\toto\file.txt"
20
end
end sub
tu me mail si ok ?
a+
je sais que tu as deja eu une reponse, mais :
pour tester si la directory c:\toto existe (par la gestion des erreurs) et si oui y copier le fichier file.txt qui se trouve sur c:\
sub verif()
1
on error goto 10
chdir "c:\toto"
goto 11
10
pasbon=msgbox("Le répertoire n'existe pas",vbcritical,"interruption")
goto 20
11
on error goto 0
filecopy "C:\file.txt","C:\toto\file.txt"
20
end
end sub
tu me mail si ok ?
a+
