Visual Basic Forum

^^kev#### · Verfasst am: 29.06.2009, 14:05

Beschreibung:
Datei mittels Windows Dialog verschieben

Funktion:
Visual Basic: [code]Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (ByRef lpFileOp As SHFILEOPSTRUCT) As Integer

Private Structure SHFILEOPSTRUCT
Dim hwnd As Integer
Dim wFunc As Integer
Dim pFrom As String
Dim pTo As String
Dim fFlags As Short
Dim fAnyOperationsAborted As Boolean
Dim hNameMappings As Integer
Dim lpszProgressTitle As String
End Structure

Const FO_MOVE As Short = &H1S

Public Function ShellMove(ByVal strSource As String, ByVal strTarget As String, ByVal Handle As Long) As Boolean
Dim SFO As New SHFILEOPSTRUCT

If Right(strSource, 1) = "" Then strSource = Mid(strSource, 1, Len(strSource) - 1)
ShellMove = True
With SFO
.hwnd = Handle
.wFunc = FO_MOVE
.pFrom = strSource & Chr(0) & Chr(0)
.pTo = strTarget & Chr(0) & Chr(0)
End With

Call SHFileOperation(SFO)
If SFO.fAnyOperationsAborted Then ShellMove = False
End Function
[/code]

Quelle: dotnet-snippets.de
_________________