Восстановление удаленного файла

[Qwertiy]

Dim Hnd As Integer, nRead As Integer

Сразу нет.

Dim Buffer(1024) As Byte

Подозрительно.

IntPtr.Zero
Return

Ты на каком языке пишешь?

CloseHandle(Hnd)

Никогда не выполнится.

Остальное не смотрел.

[Don Leno]

Dim Buffer(1024) As Byte - Один килобайт данных, что здесь подозрительного

New System.Threading.NativeOverlapped лучше с этим помоги

[Mikle]

Dim Buffer(1024) As Byte - Один килобайт данных, что здесь подозрительного

Это НЕ 1 кБ, если только Option Base 1 не установлено.

[Don Leno]

Скорее всего так и есть!

[FireFenix]

New System.Threading.NativeOverlapped лучше с этим помоги

А что с ним помогать, тут и так видно что это .NET, а ты нубас. Логично, что передирать как попало чужой код неизвестного происхождения - глупо и работать не будет.

http://www.google.ru в помощь!

[Qwertiy]

Dim Buffer(1024) As Byte - Один килобайт данных, что здесь подозрительного

В VB6 вообще лучше явно обе границы писать.
А один килобайт это может быть только при 1-индексации, которую вообще использовать не стоит.

New System.Threading.NativeOverlapped лучше с этим помоги

А это в список к другим двум пунктам с вопросом "Ты на каком языке пишешь?"

[Don Leno]

Qwertiy пишу на VB6!! Мне то этот код надо транслейтить в родной барсик и все. Ссори ща подправлю код и вместо 1024 поставлю 1023.

[Don Leno]

А что с ним помогать, тут и так видно что это .NET, а ты нубас. Логично, что передирать как попало чужой код неизвестного происхождения - глупо и работать не будет.

http://www.google.ru в помощь!

Ну конечно, а ничего что я полдня там провел и вот пришел с исходником на Net а вы даж помочь не хотите. Я стараюсь перевожу на вб 6 и просто нужно где нить немножко подсказать, да объяснить.
Нубас ты раз цепляешься за всякие мелочи и не можешь сказать ничего определеного, я же пытаюсь добраться до сути и не просто скопирайтить код, а понять каждую его строчку!

Вот как мне перевести стоку VB Net

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

New System.Threading.NativeOverlapped

В код VB?

Это ссылка только там на Си http://vsokovikov.narod.ru/New_MSDN_API/Synchronization/str_overlapped.htm
Как мне теперь этот тип написать на VB?