Узнать существует ли файл +S...

[Info_m.be_free]

Public Function DirectoryExists(ByVal strPathName As String) As Boolean
Dim DirectoryFound As String
Const errPathNotFound As Integer = 76
On Error GoTo 0
DirectoryFound = Dir(strPathName, vbDirectory)
If (Len(DirectoryFound) = 0 Or Err = errPathNotFound) Then
DirectoryExists = False
Else
DirectoryExists = True
End If
End Function
- Вот такой код когдато где-то ... видел...
А как сделать чтобы по файлу , например, io.sys с аттрибутами системный & скрытый функция тоже возвращала True ?
помогите плиз...

[SergeySV]

Там еще параметр есть - vbHidden
в DIR можно сразу несколько параметров указывать.

[Vellan]

File System Object

[Vi]

Код: Выделить всё

Public Function DirectoryExists(ByVal strPathName As String) As Boolean
  Dim x As VbFileAttribute

  On Error Resume Next

  x = GetAttr(strPathName)
  DirectoryExists = (x = vbDirectory) Or ((x And (vbHidden Or vbSystem)) <> 0)
End Function

[Sebas]

Код: Выделить всё

Public Function DirectoryExists(ByVal strPathName As String) As Boolean
  Dim x As VbFileAttribute

  On Error Resume Next

  x= GetAttr(strPathName)
  DirectoryExists = (x = vbDirectory) Or ((x And (vbHidden Or vbSystem)) <> 0)
End Function

А я бы так сделал:

Код: Выделить всё

  if GetAttr(strPathName) AND vbDirectory = vbDirectory then
           if strPathName <> "." And strPathName <> ".." Then
                    DirectoryExists = True
           End If
  End If

[Info_m.be_free]

ПасИба Всем Огромное. или по другому скажу - ПасИба Всем Огромное