Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Bitte um Hilfe
Autor: Majbog
Datum: 10.04.04 00:57
Hallo Leute Ich bitte um Hilfe Ich habe folgende Code: Dim DateiPfad1 As String, DateiPfad2 As String Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _ (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _ ByVal bFailIfExists As Long) As Long Private Sub cmdEnd_Click() End End Sub Private Sub cmdKopieren_Click() Dim Frage1 As Long, Frage2 As Long, Frage3 As Long Frage1 = CopyFile(DateiPfad1, (Dir2.Path & "\" & File1.FileName), 1) If Frage1 = 0 Then Frage2 = MsgBox("Soll die Datei überschrieben werden?", 4, "Achtung!") If Frage2 = vbYes Then Frage3 = CopyFile(DateiPfad1, (Dir2.Path & "\" & File1.FileName), 0) If Frage3 = 1 Then File2.Refresh Else MsgBox "Die Datei konnte nicht kopiert werden", 16, "Fehler!" Exit Sub End If End If If Frage2 = vbNo Then Exit Sub End If Else File2.Refresh End If End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Dir2_Change() File2.Path = Dir2.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub Drive2_Change() Dir2.Path = Drive2.Drive End Sub Private Sub File1_Click() DateiPfad1 = File1.Path & "\" & File1.FileName End Sub Private Sub File2_Click() DateiPfad2 = File2.Path & "\" & File2.FileName End Sub Ich hätte gerne noch ein Button mit "Löschen" Funktion, aber ich weiß nicht was soll ich noch dazu schreiben. Ich habe versucht mit: Private Sub cmdLöschen_Click() Dim Frage1 As Long, Frage2 As Long Frage2 = MsgBox("Soll die Datei wirklich gelöscht werden?", 4, "Achtung!") If Frage2 = vbYes Then Frage1 = DeleteFile(DateiPfad) If Frage1 = 1 Then File1.Refresh Else MsgBox "Die Datei konnte nicht gelöscht werden", 16, "Fehler!" End If Else: Exit Sub End If End Sub aber es funtioniert nicht. Was mache ich falsch? Und noch was - wenn ich nur eine bestimmte Datei öffnen will anstatt linken Dialog (Code oben), wie verbinde ich das mit rechten Dialog - speichern unter? Ob das überhaupt möglich wäre? Majbg

Bitte um Hilfe	498	Majbog	10.04.04 00:57
Re: Bitte um Hilfe	274	knrf	10.04.04 11:24
Re: Bitte um Hilfe	271	Majbog	10.04.04 16:53
Re: Bitte um Hilfe	294	knrf	11.04.04 00:20
Re: Bitte um Hilfe	247	Majbog	13.04.04 16:52
Re: Bitte um Hilfe	253	knrf	13.04.04 18:28

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen