|
Jak sprawdzić czy w stacji jest dyskietka? |
|
|
|
Napisał Administrator
|
|
poniedziałek, 30 styczeń 2006 |
Podejrzane na forum, funkcję przytoczył marcin_an:
Function IsFloppyReady(ByVal FloppyDrive As String) As Boolean
Dim fso As New FileSystemObject
If fso.DriveExists(FloppyDrive) Then
IsFloppyReady = fso.Drives(FloppyDrive).IsReady
End If
End Function
Żeby działało trzeba dorzucić do referencji SCRRUN.DLL (standardowo obecny w Windowsie).
|
Dodane przez zockoy w dniu - 2006-02-04 21:51:34
 |
Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie.
Tylko zarejestrowani użytkownicy mogą pisać komentarze. Powered by AkoComment 2.0! |
