Ordner-Inhalt kopieren

Übersicht

BlitzBasic

Beginners-Corner

	speedyracer233 Betreff: Ordner-Inhalt kopieren	Mo, Mai 24, 2010 21:47 Antworten mit Zitat
Hallo, 1. Kann man in BlitzBasic einen ganzen ordner incl. unterordner kopieren. 2. Oder kann man alle Dateien eines ordners (vielleicht auch unterordner) kopieren. Danke.

speedyracer233

Betreff: Ordner-Inhalt kopieren

Mo, Mai 24, 2010 21:47
Antworten mit Zitat

Hallo,

1. Kann man in BlitzBasic einen ganzen ordner incl. unterordner kopieren.
2. Oder kann man alle Dateien eines ordners (vielleicht auch unterordner) kopieren.

Danke.

	Chrise Betreff: Re: Ordner-Inhalt kopieren	Mo, Mai 24, 2010 21:50 Antworten mit Zitat
ich hab da mal ne kleine unterordner-funktion vor kurzem für lamanet gebaut. Vielleicht hilft dir die was. Der Rest mit Dateien inclusive sollte einfach sein Die Funktion erstellt den Ordner des Pfades. Alle Ordner dazwischen, die noch nicht bereits existieren werden zusätzlich erstellt. BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Function CreateMultiDir(Path$) Local FPos% Path=Replace(Path,Path,"") Path=Replace(Path,"/","\") If RSet(Path,1)="\" Then Path=Left(Path,Len(Path)-1) FPos=Instr(Path,"\") Repeat FPos=Instr(Path,"\",FPos+1) If FPos>0 Then If FileType(Left(Path,FPos-1))=0 Then CreateDir(Left(Path,FPos-1)) EndIf Else CreateDir(Path) EndIf If FileType(Path)=2 Then Exit Forever End Function
Llama 1 Llama 2 Llama 3 Vielen Dank an Pummelie, der mir auf seinem Server einen Platz für LlamaNet bietet.

Chrise

Betreff: Re: Ordner-Inhalt kopieren

Mo, Mai 24, 2010 21:50
Antworten mit Zitat

ich hab da mal ne kleine unterordner-funktion vor kurzem für lamanet gebaut. Vielleicht hilft dir die was. Der Rest mit Dateien inclusive sollte einfach sein Wink

Die Funktion erstellt den Ordner des Pfades. Alle Ordner dazwischen, die noch nicht bereits existieren werden zusätzlich erstellt.

BlitzBasic: [AUSKLAPPEN]

Function CreateMultiDir(Path$)
	
	Local FPos%
	Path=Replace(Path,Path,"")
	Path=Replace(Path,"/","\")
	If RSet(Path,1)="\" Then Path=Left(Path,Len(Path)-1)
	FPos=Instr(Path,"\")
	Repeat
		FPos=Instr(Path,"\",FPos+1)
		If FPos>0 Then
			If FileType(Left(Path,FPos-1))=0 Then
				CreateDir(Left(Path,FPos-1))
			EndIf
		Else
			CreateDir(Path)
		EndIf
		
		If FileType(Path)=2 Then Exit
	Forever
	
End Function

Llama 1 Llama 2 Llama 3
Vielen Dank an Pummelie, der mir auf seinem Server einen Platz für LlamaNet bietet.

Zuletzt bearbeitet von Chrise am Mo, Okt 25, 2010 16:29, insgesamt 2-mal bearbeitet

	ToeB	Mo, Mai 24, 2010 21:50 Antworten mit Zitat
Du musst dir mal Befehle wie ReadDir, CreateDir, CopyFile etc. angucken... Einfach den zu kopierenden Ordner mit ReadDir und NextFile auslesen, mit [[FileType] gucken ob es eine Datei ist, wenn ja wird die Kopiert, wenn es ein Ornder ist wird der wieder neu ausgelesen (Durch mehere Funktionsaufrufe). mfg ToeB
Religiöse Kriege sind Streitigkeiten erwachsener Männer darum, wer den besten imaginären Freund hat. Race-Project - Das Rennspiel der etwas anderen Art SimpleUDP3.0 - Neuste Version der Netzwerk-Bibliothek Vielen Dank an dieser Stelle nochmal an Pummelie, welcher mir einen Teil seines VServers für das Betreiben meines Masterservers zur verfügung stellt!

ToeB

Mo, Mai 24, 2010 21:50
Antworten mit Zitat

Du musst dir mal Befehle wie ReadDir

, CreateDir

, CopyFile

etc. angucken...

Einfach den zu kopierenden Ordner mit ReadDir und NextFile auslesen, mit [[FileType] gucken ob es eine Datei ist, wenn ja wird die Kopiert, wenn es ein Ornder ist wird der wieder neu ausgelesen (Durch mehere Funktionsaufrufe).

mfg ToeB

Religiöse Kriege sind Streitigkeiten erwachsener Männer darum, wer den besten imaginären Freund hat.
Race-Project - Das Rennspiel der etwas anderen Art
SimpleUDP3.0 - Neuste Version der Netzwerk-Bibliothek
Vielen Dank an dieser Stelle nochmal an Pummelie, welcher mir einen Teil seines VServers für das Betreiben meines Masterservers zur verfügung stellt!

	M0rgenstern	Mo, Mai 24, 2010 21:57 Antworten mit Zitat
Das geht nicht einzeln. Da musst du jede Datei einzeln kopieren. Schau dir dazu mal https://www.blitzforum.de/help/ChangeDir, https://www.blitzforum.de/help/CopyFile, https://www.blitzforum.de/help/CreateDir an. Lg, M0rgenstern

M0rgenstern

Mo, Mai 24, 2010 21:57
Antworten mit Zitat

Das geht nicht einzeln. Da musst du jede Datei einzeln kopieren.
Schau dir dazu mal https://www.blitzforum.de/help/ChangeDir, https://www.blitzforum.de/help/CopyFile, https://www.blitzforum.de/help/CreateDir an.

Lg, M0rgenstern