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

ник: ddi

Option Compare Database Option Explicit Function r() 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 так скозать что душе угодно Dim i As Integer For Each drv In f.Drives If drv.DriveType = Removable Then If fe(drv & "\1.txt") = True Then r = drv & "\1.txt" MsgBox (r) 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