Hallo,
ich hab irgend ein fehler im Modul leider weiss ich einfach nicht wo immer wenn ich das programm teste kommt der fehler
Microsoft Visual basic
Methode oder Mitgliedsdaten nicht gefunden.
Dann wir der text gelb makiert
Public Sub OrderinhaltLöschen(sPath As String)
Hier mal der ganze code
wenn noch fragen offen sind einfach posten braucht echt hilfe.
Mfg
Jan
ich hab irgend ein fehler im Modul leider weiss ich einfach nicht wo immer wenn ich das programm teste kommt der fehler
Microsoft Visual basic
Methode oder Mitgliedsdaten nicht gefunden.
Dann wir der text gelb makiert
Public Sub OrderinhaltLöschen(sPath As String)
Hier mal der ganze code
Code:
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Declare Sub ReleaseCapture Lib "User32" ()
Public Declare Function SendMessage Lib "User32" _
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
Public Const WM_NCLBUTTONDOWN = &HA1
Public Const HTCAPTION = 2
Public Function GetCurrentUser() As String
Dim slength As Long
Dim retval As Long
Dim username As String
username = Space(255)
slength = 255
retval = GetUserName(username, slength)
GetCurrentUser = Left(username, slength - 1)
End Function
Public Sub OrderinhaltLöschen(sPath As String)
On Error Resume Next
cleanup.File1.Path = sPath
For a = 0 To cleanup.File1.ListCount - 1
Kill IIf(Right(cleanup.File1.Path, 1) = "\", cleanup.File1.Path, cleanup.File1.Path & "\") & cleanup.File1.List(a)
Next a
End Sub
wenn noch fragen offen sind einfach posten braucht echt hilfe.
Mfg
Jan