Herzlich Willkommen, lieber Gast!
  Sie befinden sich hier:

  Forum » Visual Basic 6.0 / VBA » Public Function Kill File

Forum | Hilfe | Team | Links | Impressum | > Suche < | Mitglieder | Registrieren | Einloggen
  Quicklinks: MSDN-Online || STL || clib Reference Grundlagen || Literatur || E-Books || Zubehör || > F.A.Q. < || Downloads   

Autor Thread - Seiten: > 1 <
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


Visual Basic:
sX||LC01||


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.
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
001
19.11.2004, 18:59 Uhr
sXene[WARE]



sX||LC01|| ??
ich meine


Visual Basic:
sXRemove "C:\Text.zip", False

--
sXene.de
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
002
22.11.2004, 12:21 Uhr
Airdamn



so sollte es funktionieren (ohne Gewähr :P):


Visual Basic:
Public Function Delete(FileName As String, QuestionBox As Boolean)
Dim nResult as Integer

nResult = vbYes

If QuestionBox = True Then
    nResult = MsgBox("Wollen Sie " & FileName & " wirklich löschen?", vbQuestion + vbYesNo, App.EXEName)
End If

If nResult = vbYes Then Kill (FileName)

End Function


Dieser Post wurde am 22.11.2004 um 12:22 Uhr von Airdamn editiert.
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
Seiten: > 1 <     [ Visual Basic 6.0 / VBA ]  


ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: