Das alte Codearchive

CopyDirectory von ???

Hi.

Ich hatte mir gedacht, dass ich mal eine CopyDirectory Routine schreibe, weil so was anscheinent in BB vergessen wurde. Naja, hier ist der Code:

[code:1:0f914090ce]Function CopyDirectory(From_$, To_$)
Local MyDir, MyFile$

MyDir = ReadDir(From_$)
MyFile$ = NextFile$(MyDir)
MyFile$ = NextFile$(MyDir)
Repeat
MyFile$ = NextFile$(MyDir)
If MyFile$ = "" Then Exit

If FileType(From_$ + "" + MyFile$) = 2 Then
CreateDir To_$ + "" + MyFile$
CopyDirectory(From_$ + "" + MyFile$, To_$ + "" + MyFile$)
Else
CopyFile From_$ + "" + MyFile$, To_$ + "" + MyFile$
End If
Forever
CloseDir(MyDir)
End Function[/code:1:0f914090ce]

cu, ST.

===

von ???

Hallo ShadowTurtle,

Super Routine, brauchte ich gerade und habe diese hier gefunden.
Läuft super!

Gruß,

Dirk

===

von ???

Danke. Den code hab ich von BlitzInfo übernommen -> http://BlitzInfo.ShadowTurtle.de *g*

cu

Suche:
(unterstützt mySQL Wildcards ala %)