Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Файл или ...

Тема: Файл или Папка

15.06.2007 21:04:48

OPER

15 сообщения

Тема: Файл или Папка

Как можно отличить файл от папки, используя его путь? Есть ли какая-нибудь API-функция, позволяющая сделать это?

P.S. Использование API функций
Автор: OPER от 08.12.2003 10:22:18 Источник ...

15.06.2007 21:04:48

All

4316 сообщения

RE: Файл или Папка

1. FolderExists объекта Scripting.FileSystemObject проверяет наличие папки
2. Посмотрите 3 пример la_files.mdb
Private Sub butProperties_Click()
On Error GoTo 999
Dim fs, f1
Set fs = CreateObject("Scripting.FileSystemObject")
Set f1 = fs.GetFolder(Me.myFolder)
Me.progress = _
"Name: " & f1.Name & vbCrLf & _
"Path: " & f1.Path & vbCrLf & _
"Attributes: " & f1.Attributes & vbCrLf & _
"DateCreated: " & f1.DateCreated & vbCrLf & _
"LastAccessed: " & f1.DateLastAccessed & vbCrLf & _
"LastModified: " & f1.DateLastModified & vbCrLf & _
"IsRootFolder: " & f1.IsRootFolder & vbCrLf & _
"ShortName: " & f1.ShortName & vbCrLf & _
"ShortPath: " & f1.ShortPath & vbCrLf & _
"Size: " & f1.Size & vbCrLf & _
"Type: " & f1.Type & vbCrLf & _
"fs.FolderExists('c:\')=" & fs.FolderExists("c:\") & vbCrLf & _
""
Exit Sub 999:
MsgBox Err.Description
Err.Clear End Sub

P.S. Использование API функций
Автор: Admin от 0:00:00 Источник ...

15.06.2007 21:04:48

OPER

15 сообщения

RE: Файл или Папка

А аналог на API есть?

P.S. Использование API функций
Автор: OPER от 08.12.2003 13:06:58 Источник ...

15.06.2007 21:04:48

All

4316 сообщения

RE: Файл или Папка

Зачем грузить еще одну библиотеку, можно использовать и встроенную функцию dir("c:",vbdirectory)

P.S. Использование API функций
Автор: Admin от 0:00:00 Источник ...

15.06.2007 21:04:48

OPER

15 сообщения

RE: Файл или Папка

Эта функция не говорит о типе того, что расположено по указанному пути. Если использовать параметр vbDirectory, то будут возвращаться и папки и файлы.

P.S. Использование API функций
Автор: OPER от 08.12.2003 16:43:32 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Файл или ...

Поиск

Список форумов

Начало | Forums