Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Ordner anlegen
Autor: Huul
Datum: 19.03.03 09:41
Hallo, Die App holt sich den Wert aus einer Textbox. Und legt den Pfad in der Variablen sPfad ab (sPfad = "C:\Temp\temp.dat") ich möchte jetzt aber nur den Ornder ändern. hier der Quellcode: Private Sub Ordner_anlegen() If Dir$(sPfad, 16) = "" Then MkDir sPfad End If Pruefen = True Temp_Speichern If Pruefen = True Then sLeerstring = " " sPfad = Left$(sPfad2, Len(sPfad2) - 4) & ".tmp" F = FreeFile Open sPfad For Output As #F sEingabe = Right$(sLeerstring + sEingabe, 10) Print #F, sEingabe Close #F If Dir$(sPfad2) <> "" Then Kill sPfad2 End If Name sPfad As sPfad2 Else Ordner_anlegen End If Danke für eure Hilfe mfg huul

Ordner anlegen	48	Huul	19.03.03 07:58
Re: Ordner anlegen	216	Elwood	19.03.03 08:02
Re: Ordner anlegen	34	Huul	19.03.03 09:41

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