newbee if und then

[nixchecka]

Hi leute
ich kriege es net auf die reihe ich würde gerne mehrer Check biox auf einmal verwenden ! und dann soll man auf einen button klicken und der erste button löscht tempdatein!

aber irgendwie zeigt er immer einen Fehler an::

Private Sub durchführen_Click(Index As Integer)
If Check1.Value = vbChecked Then _
SHDelete("C:\Temp\*.*", Me.hWnd, True, True, True)
MsgBox "Fehler beim Löschen!", 16, "Fehler!"

End Sub

ich hoffe ihr könnt mir helfe
danke im Vorraus!
arthur

 

[Johannes Postler]

Was mir jetzt spontan auffällt, ohne zu verstehen, was du eigentlich willst, ist das fehlende End If. Kommt genau dort, wo eine leere Zeile ist.

 

[simonef]

Hallo arthur,

1. Ja, endif.
2. Soll die msgbox nur kommen, wenn ein Fehler auftritt, oder?
Die Funktion kenne ich nicht. Gibt die etwas zurück, wenn ein Fehler auftritt?
Dann das abfragen, oder mit "on error" abfangen.

cu
simone

 

[nixchecka]

Also ich will ein Programm schreiben das temp datei löscht den verlauf leert usw.! Und man kann halt auswählen was man löschen will ! Und mit end if hat Visual Basic immer noch einen Fehler! Einen Syntax fehler! Und das ist der Orginal befehl den will ich da halt einen bauen::
Private Sub Command1_Click()
If Not SHDelete("C:\WINDOWS\TEMP\*.*", Me.hWnd, True, True, True) Then
MsgBox "Fehler beim Löschen!", 16, "Fehler!"
Else
MsgBox "Löschvorgang wurde erfolgreich durchgeführt!", 65, "Erfolgreich!"
End If
Gruß Arti

 

[Shakie]

Warum schreibst du ihn dann nicht so hin?

Private Sub durchführen_Click(Index As Integer)
If Not SHDelete("C:\WINDOWS\TEMP\*.*", Me.hWnd, True, True, True) Then
MsgBox "Fehler beim Löschen!", 16, "Fehler!"
Else
MsgBox "Löschvorgang wurde erfolgreich durchgeführt!", 65, "Erfolgreich!"
End If
End Sub

Ich denke, du hast lediglich das End Sub vergessen!

Edit: ich habe auf den Post direkt vor meinem geguckt, da fehlt das End Sub nämlich...

 

[simonef]

nö, das ist oben ja da, hat er wahrscheinlich nur vergessen...

wie gesagt kenne ich diese Funktion nicht, aber hier:
http://www.vbarchiv.net/archiv/tipp_325.html
sieht das etwas anders aus....

ich benütze lieber ein filesystemobject...
wenn es denn sein muss, sonsten eher ein puristisches .bat

cu
simone

 

[nixchecka]

Ihr checkt es nhet nee? ich will das in ne Checkbox einbauen und wenn man z.B. Check5 drückt soll :
Private Sub durchführen_Click(Index As Integer)
If Not SHDelete("C:\WINDOWS\TEMP\*.*", Me.hWnd, True, True, True) Then
MsgBox "Fehler beim Löschen!", 16, "Fehler!"
Else
MsgBox "Löschvorgang wurde erfolgreich durchgeführt!", 65, "Erfolgreich!"
End If
End Sub
DURCHGEFÜHRT WERDEN! Und ich weiß net wie man das einbaut!

 

[Shakie]

Schreib den Code einfach in das Click-Ereignis von Check5, oder ruf darin die Prozedur auf.

Private Sub Check5_Click()
'Hier den Code:
If Not SHDelete("C:\WINDOWS\TEMP\*.*", Me.hWnd, True, True, True) Then
MsgBox "Fehler beim Löschen!", 16, "Fehler!"
Else
MsgBox "Löschvorgang wurde erfolgreich durchgeführt!", 65, "Erfolgreich!"
End If

'---------------------
End Sub

ODER:

Private Sub Check5_Click()
     durchführen_Click 0
End Sub

 

[nixchecka]

und wie geht das wenn ich per button durchführen diesen verlauf starten will? also ich wähle diese checkbox auf mach nen häckchen dran! und dann drücke ich aufn button und der löscht per dem code der oben steht

 

[nixchecka]

und wie geht das wenn ich per button durchführen diesen verlauf starten will? also ich wähle diese checkbox auf mach nen häckchen dran! und dann drücke ich aufn button und der löscht per dem code der oben steht