Форумы HiProg.com - MS ACCESS, VBA, VB

ник: ddi

Option Compare Database Option Explicit Function r(filename As String) As String  'by David Zakaryan (ddi) Dim f As New FileSystemObject Dim drv As Drive 'drv может иметь значения 'drv.AvailableSpace 'drv.DriveLetter 'drv.DriveType 'drv.FileSystem 'drv.FreeSpace 'drv.IsReady 'drv.Path 'drv.RootFolder 'drv.SerialNumber 'drv.ShareName 'drv.TotalSize 'drv.VolumeName так скозать что душе угодно For Each drv In f.Drives If drv.DriveType = Removable Then If fe(drv & "\" & filename) = True Then r = drv & "\" & filename Else End If End If Next If r = "" Then MsgBox ("Нет флешки") End If End Function Function fe(Path As String) As Boolean        Dim i As Integer     On Error Resume Next     i = GetAttr(Path)     Select Case Err.Number     Case Is = 0         fe = True     Case Else         fe = False     End Select     On Error GoTo 0 End Function