000
19.11.2004, 15:54 Uhr
sXene[WARE]
|
Hi!
Um mir das mit dem Dateien löschen zu vereinfachen habich mir ein kleines modul gebastelt.
der code sieht so aus:
| Visual Basic: |
Option Explicit
'+++++++++++++++++++++++++++++++'
' COPYRIGHT (C) 2004 by sXene '
'+++++++++++++++++++++++++++++++'
Public Function sXRemove(FileName As String, QuestionBox As Boolean)
If QuestionBox = True Then GoTo QuestionBoxSub Else Kill (FileName)
QuestionBoxSub:
If MsgBox("Wollen Sie " & FileName & " wirklich löschen?", vbQuestion + vbYesNo, App.EXEName) = vbYes Then Kill (FileName)
End Function
|
Wennich jetz z.b. in meiner form
eingebe, soller die datei ohne zu fragen löschen.. wennich ,True mache dann soller mit ner YesNo msgbox danach fragen...
mein prob: der zeigt die MsgBox IMMER an.. und der löscht die datei auch wennich auf "Nein" klicke..
kann mir da jemand sagen wies geht??
--
sXene.de
Dieser Post wurde am 22.11.2004 um 12:27 Uhr von FloSoft editiert. |
