Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Pfad suche
Autor: Manfred1944
Datum: 17.10.11 15:04
Brauche Hilfe Warnung vor Überschreiben einer Datei, im Verzeichnis Bilder Private Sub Command2_Click() Dim Screen$ Dim s As String Dim Überschreiben$ Dim F% Screen$ = App.Path & "\Bilder" If Len(Dir(Screen$, vbDirectory)) = 0 Then MkDir Screen$ End If s = InputBox("Dateinahme eingeben." + " Datei Name ") 'Überschreiben$ = Pfad angeben .....? If Überschreiben$ = s Then F% = MsgBox("Datei Überschreiben?" + Chr(13) + Chr(13) + Über$, 36, "Datei Überschreiben") If F% = 7 Then Exit Sub End If On Error GoTo ErrorHandler SavePicture Picture2.Image, App.Path & "\Bilder\" & s & ".bmp" ErrorHandler: End Sub

Pfad suche	1.165	Manfred1944	17.10.11 15:04
Re: Pfad suche	692	Dieter	17.10.11 15:31
Re: Pfad suche	664	Manfred X	17.10.11 16:16
Re: Pfad suche	642	Manfred1944	18.10.11 18:22
Re: Pfad suche	647	Manfred X	18.10.11 18:51
Re: Pfad suche	748	Manfred1944	21.10.11 16:38

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