Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionFunction ReportDriveStatus(drv) Dim fso, msg Set fso = CreateObject("Scripting.FileSystemObject") If fso.DriveExists(drv) Then msg = ("Le lecteur " & UCase(drv) & " existe.") Else msg = ("Le lecteur " & UCase(drv) & " n'existe pas.") End If ReportDriveStatus = msg End, fonction
Function ReportFolderStatus(fldr) Dim fso, msg Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FolderExists(fldr)) Then msg = fldr & " existe." Else msg = fldr & " n'existe pas." End If ReportFolderStatus = msg End, fonction