Copy Dir - GameCreators Forum

Author

Message

Rknight

21

Years of Service

User Offline

Joined: 25th Sep 2003

Location: NJ

Posted: 4th Jul 2004 13:01

Link

Anybody got a good copy directory (including all subdirectories/files) function they want to share?

Back to top

Profile PM

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 4th Jul 2004 14:12

Link

click the logo

* DBP_NETLIB_v1.4.3 - July, 2004 * Click Logo

Back to top

Profile PM

Rknight

21

Years of Service

User Offline

Joined: 25th Sep 2003

Location: NJ

Posted: 4th Jul 2004 15:34 Edited at: 4th Jul 2004 15:35

Link

Well yeah, I wondered if you'd post. I meant that you didn't have to download 25 megs or so to use. <G>

Kinda silly to use your plugin for a program if that's all the program'll need it for.

Back to top

Profile PM

the_winch

21

Years of Service

User Offline

Joined: 1st Feb 2003

Location: Oxford, UK

Posted: 4th Jul 2004 16:28 Edited at: 4th Jul 2004 16:29

Link

Here is one.

function copy_dir(source as string, destination as string)
  `copies a dir from source to destination
  local first as integer
  local dim list(-1) as string
  `if destination isn't a full path make it one
  if len(destination) < 3 or mid$(destination,2) <> ":"
    destination = get dir$() + "" +  destination
  endif
  make directory destination
  cd source
  `add dir contents to list()
  repeat
    if first = 0
      find first
      first = 1
    else
      find next
    endif
    `add it to the list unless there are no more files
    if get file type() > -1
      array insert at bottom list(0)
      list(array count(list(0))) = get file name$()
    endif
  until get file type() = -1
  `go through each item in the list and copy it to destination
  for i = 0 to array count(list(0))
    if file exist(list(i))
      `it's a file
      copy file list(i), destination+""+list(i)
    else
      `it's a dir
      if list(i) <> "." and list(i) <> ".."
        copy_dir(list(i), destination+""+list(i))
      endif
    endif
  next i
  undim list(0)
endfunction

+ Code Snippet

function copy_dir(source as string, destination as string)
  `copies a dir from source to destination
  local first as integer
  local dim list(-1) as string
  `if destination isn't a full path make it one
  if len(destination) < 3 or mid$(destination,2) <> ":"
    destination = get dir$() + "" +  destination
  endif
  make directory destination
  cd source
  `add dir contents to list()
  repeat
    if first = 0
      find first
      first = 1
    else
      find next
    endif
    `add it to the list unless there are no more files
    if get file type() > -1
      array insert at bottom list(0)
      list(array count(list(0))) = get file name$()
    endif
  until get file type() = -1
  `go through each item in the list and copy it to destination
  for i = 0 to array count(list(0))
    if file exist(list(i))
      `it's a file
      copy file list(i), destination+""+list(i)
    else
      `it's a dir
      if list(i) <> "." and list(i) <> ".."
        copy_dir(list(i), destination+""+list(i))
      endif
    endif
  next i
  undim list(0)
endfunction

can i scream

Back to top

Profile PM Website

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 4th Jul 2004 16:41

Link

Quote: "Well yeah, I wondered if you'd post. I meant that you didn't have to download 25 megs or so to use. <G>
Kinda silly to use your plugin for a program if that's all the program'll need it for"

Then say that when you post - "I need code, but please, no plugins"

And theres the winch at every turn, posting umpteen lines of code of how to do stuff in dbp when dbp is sadly lacking in many of the basics....no, not even the basics, the prerequisites.

* DBP_NETLIB_v1.4.3 - July, 2004 * Click Logo

Back to top

Profile PM

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 4th Jul 2004 21:58

Link

Um, copying directories is a prerequisite for what is primarily a Game Creation language?

*** Coming soon - Network Plug-in - Check my site for info ***
For free Plug-ins, source and the Interface library for Visual C++ 6, .NET and now for Dev-C++ http://www.matrix1.demon.co.uk

Back to top

Profile PM Email Website

the_winch

21

Years of Service

User Offline

Joined: 1st Feb 2003

Location: Oxford, UK

Posted: 4th Jul 2004 23:55 Edited at: 4th Jul 2004 23:55

Link

There is no dir copy function in .Net either is there?
System.IO.Directory.Move()
System.IO.Directory.Delete()
but no
System.IO.Directory.Copy()

Unless I missed it.

Still the file related stuff in dbpro could be improved. Directory funtions are proberly a step too far for a game language though, exes are big enough allready

can i scream

Back to top

Profile PM Website

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 5th Jul 2004 00:17

Link

Quote: "And theres the winch at every turn, posting umpteen lines of code of how to do stuff in dbp when dbp is sadly lacking in many of the basics....no, not even the basics, the prerequisites."

I meant this generally - not in relation to a CopyDir function specifically. I should have been more clear. Either way I felt there were a great many basic things missing in the core language so I wrote myself a dll which Exeat was kind enough to wrap for me. Then we decided to share it with whomever wanted to use it.
Use it. Don't use it.

Either way, have fun.

* DBP_NETLIB_v1.4.3 - July, 2004 * Click Logo

Back to top

Profile PM

Rknight

21

Years of Service

User Offline

Joined: 25th Sep 2003

Location: NJ

Posted: 5th Jul 2004 10:05

Link

Thanks winch.

Back to top

Profile PM

Monzi

20

Years of Service

User Offline

Joined: 10th May 2004

Location: Denmark

Posted: 5th Jul 2004 10:19

Link

Directory/file handling in DB Pro sux. Very rudimentary. File handling for games could be useful, i already slammed my head into the wall when trying to fiddle with filehandling in db pro

http://monz.adsl.dk

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Copy Dir