Code archives/File Utilities/CopyDirectory([From], [To])

This code has been declared by its author to be Public Domain code.

Download source code

CopyDirectory([From], [To]) by ShadowTurtle
(Posted 24 years ago)
Have fun :)

cu, ST. 
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

Comments

None.

Code Archives Forum