'3 petites fonctions pour tester si un fichier existe ou non
bonjour
voilà de quoi essayer
bonne chance
merçi au auteur
Sub test()
MsgBox FileExists('c:\\tralala\\trilili.vbn')
MsgBox FileExists('c:\\windows\\calc.exe')
MsgBox IsExisting('c:\\tralala\\trilili.vbn')
MsgBox IsExisting('c:\\windows\\calc.exe')
MsgBox IsFile('c:\\tralala\\trilili.vbn')
MsgBox IsFile('c:\\windows\\calc.exe')
End Sub
Function FileExists(S As String) As Boolean
'le classique (et le plus court)
FileExists = Dir(S) <> ''
End Function
Function IsExisting(strFileName As String) As Boolean
'Media Lint, Chip Pearson & Dana DeLouis
On Error Resume Next
IsExisting = Not FileLen(strFileName)
End Function
Function IsFile(S As String) As Boolean
'Dana DeLouis
Dim fs
Set fs = CreateObject('Scripting.FileSystemObject')
IsFile = fs.FileExists(S)
End Function
'Au cas où, tester si le lecteur existe :
Function IsDriveValid(S As String) As Boolean
'Dana DeLouis
Dim fs
Set fs = CreateObject('Scripting.FileSystemObject')
IsDriveValid = fs.DriveExists(fs.GetDriveName(S))
End Function
au revoir