Verzeichnis Kopieren?

Übersicht

BlitzBasic

Allgemein

	BlitzBasic303 Betreff: Verzeichnis Kopieren?	Fr, Jun 03, 2005 15:07 Antworten mit Zitat
Hi! Mit copyfile kann man ja nur dateien kopieren ich muss aber die ganze Festplatte C: auf externe Festplatte F: kopieren wie geht das? Mfg BlitzBasic303

BlitzBasic303

Betreff: Verzeichnis Kopieren?

Fr, Jun 03, 2005 15:07
Antworten mit Zitat

Hi!

Mit copyfile kann man ja nur dateien kopieren ich muss aber die ganze Festplatte C: auf externe Festplatte F: kopieren wie geht das?

Mfg

BlitzBasic303

	Freeman	Fr, Jun 03, 2005 15:16 Antworten mit Zitat
du könntest ds so machen indem du einen neuen ordner erstellst und dann per nextfile alle dateien aus dem bestehenden ordner in den neuen kopierst. und so weiter. FrEeMaN
MacBook \| MacOSX 10.5 \| 80GB HDD \| 1GB \| BlitzMax 1.28

Freeman

Fr, Jun 03, 2005 15:16
Antworten mit Zitat

du könntest ds so machen indem du einen neuen ordner erstellst und dann per nextfile alle dateien aus dem bestehenden ordner in den neuen kopierst.
und so weiter.

FrEeMaN

MacBook | MacOSX 10.5 | 80GB HDD | 1GB | BlitzMax 1.28

	Kryan	Fr, Jun 03, 2005 17:16 Antworten mit Zitat
BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Function CopyDir(dir$) dir$=dir$+\"\\" verz=ReadDir(dir$) Repeat datei$=NextFile$(verz) If datei$=\"\" Then Exit If FileType(dir$+datei$)=2 And datei$<>\".\" And datei$<>\"..\" Then CreateDir Replace$(target$+Replace$(dir$,CurrentDir$(),\"\"),\"\\\",\"\\")+datei$ CopyDir(dir$+datei$) ElseIf datei$<>\".\" And datei$<>\"..\" Then cnt=cnt+1 ndir$=Replace$(target$+Replace$(dir$,CurrentDir$(),\"\"),\"\\\",\"\\") CopyFile dvon$,ndir$+datei$ End If Forever CloseDir verz End Function habs selbst geproggt...bitte SCHÖN
Webspaceanbieter? Klick hier! Kultige Spieleschmiede? Klick hier!

Kryan

Fr, Jun 03, 2005 17:16
Antworten mit Zitat

BlitzBasic: [AUSKLAPPEN]

Function CopyDir(dir$)
 dir$=dir$+\"\\"
 verz=ReadDir(dir$)
 Repeat
  datei$=NextFile$(verz)
  If datei$=\"\" Then Exit
  If FileType(dir$+datei$)=2 And datei$<>\".\" And datei$<>\"..\" Then
   CreateDir Replace$(target$+Replace$(dir$,CurrentDir$(),\"\"),\"\\\",\"\\")+datei$
   CopyDir(dir$+datei$)
  ElseIf datei$<>\".\" And datei$<>\"..\" Then
   cnt=cnt+1
   ndir$=Replace$(target$+Replace$(dir$,CurrentDir$(),\"\"),\"\\\",\"\\")
   CopyFile dvon$,ndir$+datei$
  End If
 Forever
 CloseDir verz
End Function

habs selbst geproggt...bitte SCHÖN Very Happy

Webspaceanbieter?
Klick hier!
Kultige Spieleschmiede?
Klick hier!

	BlitzBasic303 Betreff: RE:	Fr, Jun 03, 2005 20:02 Antworten mit Zitat
Und wo soll ich C: und F: hinsetzen

BlitzBasic303

Betreff: RE:

Fr, Jun 03, 2005 20:02
Antworten mit Zitat

Und wo soll ich C: und F: hinsetzen Question

	Kryan	Fr, Jun 03, 2005 20:07 Antworten mit Zitat
aso ^^ ups Global target$="F:" und CopyDir "C:" muss da noch rein, abe rnich in die funktion sondern davor
Webspaceanbieter? Klick hier! Kultige Spieleschmiede? Klick hier!

Kryan

Fr, Jun 03, 2005 20:07
Antworten mit Zitat

aso ^^
ups Rolling Eyes

Global target$="F:"
und
CopyDir "C:"

muss da noch rein, abe rnich in die funktion sondern davor Wink

Webspaceanbieter?
Klick hier!
Kultige Spieleschmiede?
Klick hier!

	Klaas	Fr, Jun 03, 2005 20:33 Antworten mit Zitat
hier auch http://www.blitzbasic.com/code...p?code=934

Klaas

Fr, Jun 03, 2005 20:33
Antworten mit Zitat

hier auch

http://www.blitzbasic.com/code...p?code=934

	Alfadur	Sa, Jun 04, 2005 12:43 Antworten mit Zitat
oder auch meins .-) https://www.blitzforum.de/view...s+kopieren extra noch mit nem kleinen schönheitsfehler drin ...
A Cray is the only computer that runs an endless loop in less than four hours.