DeleteDir Ordner Löschen

Übersicht

BlitzBasic

Beginners-Corner

Gehe zu Seite 1, 2 Weiter

	Sterbendes Lüftlein Betreff: DeleteDir Ordner Löschen	Mi, Mai 05, 2010 14:42 Antworten mit Zitat
Text entfernt

Sterbendes Lüftlein

Betreff: DeleteDir Ordner Löschen

Mi, Mai 05, 2010 14:42
Antworten mit Zitat

Text entfernt

	Thunder	Mi, Mai 05, 2010 14:44 Antworten mit Zitat
BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] DeleteDir "C:\Programme" DeleteDir Was ist deine Angabe bzw das Problem? mfg Thunder
Meine Sachen: https://bitbucket.org/chtisgit https://github.com/chtisgit

Thunder

Mi, Mai 05, 2010 14:44
Antworten mit Zitat

BlitzBasic: [AUSKLAPPEN]

DeleteDir "C:\Programme"

DeleteDir

Was ist deine Angabe bzw das Problem?

mfg Thunder

Meine Sachen: https://bitbucket.org/chtisgit https://github.com/chtisgit

	Sterbendes Lüftlein Betreff: aufgabe	Mi, Mai 05, 2010 14:49 Antworten mit Zitat
Text entfernt

Sterbendes Lüftlein

Betreff: aufgabe

Mi, Mai 05, 2010 14:49
Antworten mit Zitat

Text entfernt

	Sterbendes Lüftlein Betreff: frage	Mi, Mai 05, 2010 14:51 Antworten mit Zitat
Text entfernt

Sterbendes Lüftlein

Betreff: frage

Mi, Mai 05, 2010 14:51
Antworten mit Zitat

Text entfernt

	ozzi789 Betreff: Re: aufgabe	Mi, Mai 05, 2010 14:52 Antworten mit Zitat
Totensturm hat Folgendes geschrieben: Dazu sollen einfach alle Ordner, die den Namen von Spielehersteller-Firmen tragen, gelöscht werden. Du must zuerst den Inhalt löschen DeleteFile, stichwort rekursiv! mfg
0x2B \|\| ! 0x2B C# \| C++13 \| Java 7 \| PHP 5

ozzi789

Betreff: Re: aufgabe

Mi, Mai 05, 2010 14:52
Antworten mit Zitat

Totensturm hat Folgendes geschrieben:

Dazu sollen einfach alle Ordner, die den Namen von Spielehersteller-Firmen tragen, gelöscht werden.

Du must zuerst den Inhalt löschen DeleteFile

, stichwort rekursiv!

mfg

0x2B || ! 0x2B
C# | C++13 | Java 7 | PHP 5

	Progger93	Mi, Mai 05, 2010 14:54 Antworten mit Zitat
Du musst einfach mit einer Schleife den Ordner durchgehen, und alles was in dem Ordner ist löschen ReadDir NextFile MoreFiles FileType DeleteFile Edit: zu spät
MfG Pascal Win 7\|T7250@2.0Ghz\|3GB RAM\|M8600GT

Progger93

Mi, Mai 05, 2010 14:54
Antworten mit Zitat

Du musst einfach mit einer Schleife den Ordner durchgehen, und alles was in dem Ordner ist löschen Rolling Eyes

ReadDir

NextFile

MoreFiles

FileType

DeleteFile

Edit: zu spät Sad

MfG Pascal
Win 7|T7250@2.0Ghz|3GB RAM|M8600GT

	Sterbendes Lüftlein Betreff: funzt ned :(	Mi, Mai 05, 2010 15:03 Antworten mit Zitat
Text entfernt

Sterbendes Lüftlein

Betreff: funzt ned :(

Mi, Mai 05, 2010 15:03
Antworten mit Zitat

Text entfernt

	Hubsi	Mi, Mai 05, 2010 15:10 Antworten mit Zitat
Bau einfach mal ein Stop in die Repeat-Schleife ein und lass Dir im Debugger den Inhalt von Datei$ ausgeben. Am Code ist erstmal "augenscheinlich" nichts falsch, ich bin jetzt aber auch gerade nicht sicher wie DeleteFile mit Werten "." und ".." umspringt. Das wird nämlich in Deiner Routine auch von NextFile zurückgegeben.
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

Mi, Mai 05, 2010 15:10
Antworten mit Zitat

Bau einfach mal ein Stop in die Repeat-Schleife ein und lass Dir im Debugger den Inhalt von Datei$ ausgeben. Am Code ist erstmal "augenscheinlich" nichts falsch, ich bin jetzt aber auch gerade nicht sicher wie DeleteFile mit Werten "." und ".." umspringt. Das wird nämlich in Deiner Routine auch von NextFile zurückgegeben.

Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

	Thunder	Mi, Mai 05, 2010 15:11 Antworten mit Zitat
Geh die Funktion doch einfach händisch durch... Es kommt raus: Code: [AUSKLAPPEN] [EINKLAPPEN] DeleteFile "." DeleteFile ".." ;Alle dateien löschen die im Ordner Ask.com sind Das heißt Unterordner bleiben erhalten und du kannst den Ordner noch immer nicht löschen. Rekursion! Du kannst dir übrigens auch das Beispiel von der BlitzBase ansehen: http://web.archive.org/web/200...scanner.bb Unter Windows 95/98/ME müsste es auch mit BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] ExecFile "echo j\|deltree ORDNER" gehen. Solltest du allerdings aus Kompatiblitätsgründen meiden. mfg Thunder
Meine Sachen: https://bitbucket.org/chtisgit https://github.com/chtisgit

Thunder

Mi, Mai 05, 2010 15:11
Antworten mit Zitat

Geh die Funktion doch einfach händisch durch...

Es kommt raus:
Code: [AUSKLAPPEN]

DeleteFile "."
DeleteFile ".."
;Alle dateien löschen die im Ordner Ask.com sind

Das heißt Unterordner bleiben erhalten und du kannst den Ordner noch immer nicht löschen.
Rekursion!
Du kannst dir übrigens auch das Beispiel von der BlitzBase ansehen: http://web.archive.org/web/200...scanner.bb

Unter Windows 95/98/ME müsste es auch mit
BlitzBasic: [AUSKLAPPEN]

ExecFile "echo j|deltree ORDNER"

gehen. Solltest du allerdings aus Kompatiblitätsgründen meiden.

mfg Thunder

Meine Sachen: https://bitbucket.org/chtisgit https://github.com/chtisgit

	Sterbendes Lüftlein Betreff: kann es sein..?	Mi, Mai 05, 2010 15:14 Antworten mit Zitat
Text entfernt

Sterbendes Lüftlein

Betreff: kann es sein..?

Mi, Mai 05, 2010 15:14
Antworten mit Zitat

Text entfernt

	Thunder	Mi, Mai 05, 2010 15:16 Antworten mit Zitat
BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Repeat DeleteFile Datei$ Until Datei$ = "" Das ist eine Endlosschleife! Außerdem glaube ich nicht, dass es daran liegt. Eher an den Gründen, die ich und Hubsi vorher genannt haben.
Meine Sachen: https://bitbucket.org/chtisgit https://github.com/chtisgit

Thunder

Mi, Mai 05, 2010 15:16
Antworten mit Zitat

BlitzBasic: [AUSKLAPPEN]

Repeat
DeleteFile Datei$ Until Datei$ = ""

Das ist eine Endlosschleife!
Außerdem glaube ich nicht, dass es daran liegt. Eher an den Gründen, die ich und Hubsi vorher genannt haben.

Meine Sachen: https://bitbucket.org/chtisgit https://github.com/chtisgit

	Progger93	Mi, Mai 05, 2010 15:19 Antworten mit Zitat
ReadDir sagt DeleteFile leider nicht welchen Ordner du ausliest. Du musst entweder mit ChangeDir oder indem du den Dateinahmen der Datei an den OrdnerPfad anhängst die "richtige" Datei angeben.
MfG Pascal Win 7\|T7250@2.0Ghz\|3GB RAM\|M8600GT

Progger93

Mi, Mai 05, 2010 15:19
Antworten mit Zitat

ReadDir

sagt DeleteFile

leider nicht welchen Ordner du ausliest. Du musst entweder mit ChangeDir

oder indem du den Dateinahmen der Datei an den OrdnerPfad anhängst die "richtige" Datei angeben.

MfG Pascal
Win 7|T7250@2.0Ghz|3GB RAM|M8600GT

	Sterbendes Lüftlein Betreff: thunder	Mi, Mai 05, 2010 15:20 Antworten mit Zitat
Text entfernt

Sterbendes Lüftlein

Betreff: thunder

Mi, Mai 05, 2010 15:20
Antworten mit Zitat

Text entfernt

	Sterbendes Lüftlein Betreff: @ progger 93	Mi, Mai 05, 2010 15:23 Antworten mit Zitat
Text entfernt

Sterbendes Lüftlein

Betreff: @ progger 93

Mi, Mai 05, 2010 15:23
Antworten mit Zitat

Text entfernt

	Progger93	Mi, Mai 05, 2010 15:25 Antworten mit Zitat
Doppelposts sind böse und gleich wird dich auch ein Mod daraufhinweisen Auf den ersten Blick: du hast bei Code: [AUSKLAPPEN] [EINKLAPPEN] DeleteFile "C:\Programme (x86)\Ask.com" + Datei$ den \ nach Ask.com vergessen
MfG Pascal Win 7\|T7250@2.0Ghz\|3GB RAM\|M8600GT

Progger93

Mi, Mai 05, 2010 15:25
Antworten mit Zitat

Doppelposts sind böse und gleich wird dich auch ein Mod daraufhinweisen Smile

Auf den ersten Blick: du hast bei Code: [AUSKLAPPEN]

DeleteFile "C:\Programme (x86)\Ask.com" + Datei$

den \ nach Ask.com vergessen

MfG Pascal
Win 7|T7250@2.0Ghz|3GB RAM|M8600GT

	Sterbendes Lüftlein Betreff: omg	Mi, Mai 05, 2010 15:30 Antworten mit Zitat
Text entfernt

Sterbendes Lüftlein

Betreff: omg

Mi, Mai 05, 2010 15:30
Antworten mit Zitat

Text entfernt

	Progger93	Mi, Mai 05, 2010 15:42 Antworten mit Zitat
BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Function deldir(path$) dir=ReadDir(path$) ChangeDir(path$) Repeat .a file$=NextFile(dir) If file$="." Or file$=".." Then Goto a If FileType(file$)=2 Then deldir(file$) ElseIf FileType(file$)=1 Then DeleteFile(file$) Else Exit EndIf Forever ChangeDir("..") DeleteDir(path$) End Function deldir("test") Bevor du vollkommen verzweifelst Ja ich habe Goto verwendet, obwohl es sehr böse ist...mir ist einfach auf die Schnelle keine andere Möglichkeit eingefallen
MfG Pascal Win 7\|T7250@2.0Ghz\|3GB RAM\|M8600GT

Progger93

Mi, Mai 05, 2010 15:42
Antworten mit Zitat

BlitzBasic: [AUSKLAPPEN]

Function deldir(path$)
	dir=ReadDir(path$)
	ChangeDir(path$)
	
	Repeat
		.a
		file$=NextFile(dir)
		If file$="." Or file$=".." Then Goto a
		If FileType(file$)=2 Then
			deldir(file$)
		ElseIf FileType(file$)=1 Then
			DeleteFile(file$)
		Else
			Exit
		EndIf
	Forever
	ChangeDir("..")
	DeleteDir(path$)
End Function

deldir("test")

Bevor du vollkommen verzweifelst Laughing

Ja ich habe Goto

verwendet, obwohl es sehr böse ist...mir ist einfach auf die Schnelle keine andere Möglichkeit eingefallen Sad

MfG Pascal
Win 7|T7250@2.0Ghz|3GB RAM|M8600GT

	Thunder	Mi, Mai 05, 2010 15:59 Antworten mit Zitat
@Progger93: Dein Beispiel geht nicht. Folgende Ordnerstruktur: Code: [AUSKLAPPEN] [EINKLAPPEN] tree( b0( b1(b3( ) b4( b5( end.txt ) ) )b2( ) ) )
Meine Sachen: https://bitbucket.org/chtisgit https://github.com/chtisgit

Thunder

Mi, Mai 05, 2010 15:59
Antworten mit Zitat

@Progger93: Dein Beispiel geht nicht. Folgende Ordnerstruktur:
Code: [AUSKLAPPEN]

tree( b0( b1(b3( ) b4( b5( end.txt ) ) )b2( ) ) )

Meine Sachen: https://bitbucket.org/chtisgit https://github.com/chtisgit

	Chrise	Mi, Mai 05, 2010 16:09 Antworten mit Zitat
geht auch ohne goto BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Function ClearDir(Path$) Local File$ Local FPath=ReadDir(Path+"\") Repeat File=NextFile$(FPath) If File$="" Then Exit If FileType(Path+"\"+File)=2 And File<>"." And File<>".." Then ClearDir(Path+"\"+File) ChangeDir Path+"\" DeleteDir Path+"\"+File Else DeleteFile Path+"\"+File EndIf Forever ChangeDir("..") DeleteDir Path CloseDir CurrentDir() End Function lg Chrise
Llama 1 Llama 2 Llama 3 Vielen Dank an Pummelie, der mir auf seinem Server einen Platz für LlamaNet bietet.

Chrise

Mi, Mai 05, 2010 16:09
Antworten mit Zitat

geht auch ohne goto Wink

BlitzBasic: [AUSKLAPPEN]

Function ClearDir(Path$)
	
	Local File$
	Local FPath=ReadDir(Path+"\")
	Repeat
		File=NextFile$(FPath)
		If File$="" Then Exit
		If FileType(Path+"\"+File)=2 And File<>"." And File<>".." Then
			ClearDir(Path+"\"+File)
			ChangeDir Path+"\"
			DeleteDir Path+"\"+File
		Else
			DeleteFile Path+"\"+File
		EndIf
	Forever
	ChangeDir("..")
	DeleteDir Path
	CloseDir CurrentDir()
	
End Function