Gruppe
Matrix
Problem
Der Wertebereich in Spalte B gemäß den Anfang/Ende-Vorgaben in Tabelle 2 soll summiert werden.
StandardModule: basMain
Von Jim Rech
Private Const FO_DELETE = &H3&
Private Const FOF_ALLOWUNDO = &H40&
Private Const FOF_NOCONFIRMATION = &H10&
Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String
End Type
Private Declare Function SHFileOperation Lib "Shell32.dll" Alias _
"SHFileOperationA" (lpFileOp As Any) As Long
Sub ShellDelete(SrcFile As String)
Dim FileOp As SHFILEOPSTRUCT
With FileOp
.hwnd = 0
.wFunc = FO_DELETE
.pFrom = SrcFile
.fFlags = FOF_NOCONFIRMATION + FOF_ALLOWUNDO
.lpszProgressTitle = ""
End With
SHFileOperation FileOp
End Sub
Sub DeleteFolder()
Dim sFolder As String
sFolder = InputBox( _
prompt:="Zu löschender Ordner:", _
Default:="c:\MyFolder")
If sFolder = "" Then Exit Sub
If MsgBox( _
prompt:="Sind Sie sicher?", _
Buttons:=vbQuestion + vbYesNo) = vbYes Then
ShellDelete "c:\MyDir"
End If
End Sub