VBNet - Форум - Ну кто-нибудь скажите!!!

Вопрос: Ну кто-нибудь скажите!!! Добавлено: 08.10.03 13:37

Автор вопроса: Maxik

Скажите! Как использовать эту функцию?
<DllImport("shell32")> Public Function SHFileOperation _
(ByVal lpFileOp As SHFILEOPSTRUCT) As Integer
End Function
Я это из vb6 переводил - не работает, строки фиксированной длинны не
помогли...
Хотя может, что на путал...
Есть у кого пример, как удалить файл в корзину????

Ответить

Ответы Всего ответов: 2

Номер ответа: 1
Автор ответа:

boevik

Хранитель чата

ICQ: 137392264

Вопросов: 8
Ответов: 557

Web-сайт: www.hypertech.ru
Профиль | Цитата | #1

Добавлено: 08.10.03 14:32

Option Explicit
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Type SHFILEOPSTRUCT
    hWnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAborted As Long
    hNameMaps As Long
    sProgress As String
End Type

Private Const FOF_ALLOWUNDO As Long = &H40
Private Const FOF_CONFIRMMOUSE As Long = &H2
Private Const FOF_FILESONLY As Long = &H80
Private Const FOF_MULTIDESTFILES As Long = &H1
Private Const FOF_NO_CONNECTED_ELEMENTS As Long = &H2000
Private Const FOF_NOCONFIRMATION As Long = &H10
Private Const FOF_NOCONFIRMMKDIR As Long = &H200
Private Const FOF_NOCOPYSECURITYATTRIBS As Long = &H800
Private Const FOF_NOERRORUI As Long = &H400
Private Const FOF_NORECURSION As Long = &H1000
Private Const FOF_RENAMEONCOLLISION As Long = &H8
Private Const FOF_SILENT As Long = &H4
Private Const FOF_SIMPLEPROGRESS As Long = &H100
Private Const FOF_WANTMAPPINGHANDLE As Long = &H20
Private Const FOF_WANTNUKEWARNING As Long = &H4000
Private Const FO_COPY As Long = &H2
Private Const FO_DELETE As Long = &H3
Private Const FO_MOVE As Long = &H1
Private Const FO_RENAME As Long = &H4

Private Sub Form_Load()
Dim oFileOperation As SHFILEOPSTRUCT

With oFileOperation
    .hWnd = Me.hWnd
    .fFlags = FOF_NOCONFIRMATION + FOF_ALLOWUNDO + FOF_SILENT
    .wFunc = FO_DELETE
    .pFrom = "c:\1.txt"
End With
    SHFileOperation oFileOperation

End Sub

Ответить

Номер ответа: 2 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968	Web-сайт: www.vbnet.ru Профиль \| Цитата \| #2	Добавлено: 08.10.03 16:42
	boevik, ему надо код на .NET! Там, судя по всему, траблы с маршалингом структуры. Ответить

Страница: 1 |