VPF::FindFirstFile и FindNextFile на VB.NET - Форум программистов

SFY

Дата 3.10.2007, 23:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 5.1.2007

Репутация: нет
Всего: нет

Итак, мне нужно:
В заданной директории найти все файлы или все папки, и загнать их все в массив. С этим идеально справляются функции Directory.GetFiles и Directory.GetDirectories НО! тоже самое нужно сделать, применяя API функции FindFirstFile (или FindFirstFileEx) и FindNextFile. И вот тут лыжи не едут...

Встал вопрос: это вообще возможно?
Примеры на C# видел, а вот на VB.NET - ни одного. Если у кого-нибудь завалялось, буду очень признателен.

В чем возникла основная сложность?
Апишные функции уже применял, но, в основном те, где в качестве параметра передается string'овая константа и только (типа MoveFile).
Здесь же:

Код


HANDLE FindFirstFile(
  LPCTSTR lpFileName,
  LPWIN32_FIND_DATA lpFindFileData
);

Что делать с LPWIN32_FIND_DATA? Как ее определить и использовать?

Experimenter

Дата 4.10.2007, 11:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 430
Регистрация: 8.5.2007
Где: Уфа

Репутация: нет
Всего: 17

А импортировать апишные функции не пробовал?

Виноват, вижу, что пробовал...

Добавлено через 11 минут и 32 секунды
Тогда посмотри в МСДН (ms-help://MS.VSCC.v80/MS.MSDN.v80/MS.VisualStudio.v80.en/dv_fxinterop/html/625c3214-8692-40b8-817f-2fd2498846da.htm):
или здесь

Код


' Declares a class member for each structure element.
< StructLayout( LayoutKind.Sequential, CharSet := CharSet.Auto )> _
Public Class FindData
   Public fileAttributes As Integer = 0
   ' creationTime was a by-value FILETIME structure.
   Public creationTime_lowDateTime As Integer = 0
   Public creationTime_highDateTime As Integer = 0
   ' lastAccessTime was a by-value FILETIME structure.
   Public lastAccessTime_lowDateTime As Integer = 0
   Public lastAccessTime_highDateTime As Integer = 0
   ' lastWriteTime was a by-value FILETIME structure.
   Public lastWriteTime_lowDateTime As Integer = 0
   Public lastWriteTime_highDateTime As Integer = 0
   Public nFileSizeHigh As Integer = 0
   Public nFileSizeLow As Integer = 0
   Public dwReserved0 As Integer = 0
   Public dwReserved1 As Integer = 0
   < MarshalAs( UnmanagedType.ByValTStr, SizeConst := 256 )> _
   Public fileName As String = Nothing
   < MarshalAs( UnmanagedType.ByValTStr, SizeConst := 14 )> _
   Public alternateFileName As String = Nothing
End Class 'FindData

Public Class LibWrap
   ' Declares a managed prototype for the unmanaged function.
   Declare Auto Function FindFirstFile Lib "Kernel32.dll" _
      ( ByVal fileName As String, <[In], Out> ByVal findFileData As _
      FindData ) As IntPtr
End Class 'LibWrap

Поиск тебе поможет.

Это сообщение отредактировал(а) Experimenter - 4.10.2007, 11:03

--------------------

public Zlo FromTwoEvilsChooseSmaller(Zlo zlo1, Zlo zlo2){
    if(zlo1 < zlo2) return zlo1;
    else if(zlo1 > zlo2) return zlo2;
    else throw new Exception("Kill yourself by the wall"); }

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »