BlackBoard (http://www.black-board.net/index.php)
- Design, Programmierung & Entwicklung (http://www.black-board.net/board.php?boardid=55)
-- Programmieren (http://www.black-board.net/board.php?boardid=4)
--- VB Ordner kopieren (http://www.black-board.net/thread.php?threadid=11309)

Geschrieben von ARSCHmitOHREN am 29.03.2003 um 17:51:

Fragezeichen Ordner kopieren

Hi,

könnt ihr mir sagen wie der befehl zum einen
Ordner kopieren ist?
wenn ja dann schreibt mir.
ciao


Geschrieben von phlox81 am 29.03.2003 um 18:43:

 

Such mal nach CopyFile:
CopyFile(quelle,zielordner,FALSE);

Devil


Geschrieben von ARSCHmitOHREN am 30.03.2003 um 10:03:

 

Hi,

habs probiert:

CopyFile C:/Eigene Dateien/Versuche

"Versuche" sollte ein Ordner sein.

Sorry. Hab Datei geschrieben.
Aber das geht auch nicht.
danke für den tipp.


Geschrieben von ARSCHmitOHREN am 30.03.2003 um 10:04:

 

Ach nee sorry ich hab ja Ordner geschriben.
Was hab ich denn?


Geschrieben von gandalf am 30.03.2003 um 13:24:

 

@ Arsch mit Ohren ( sehr treffend großes Grinsen )

Was Du hast?
Das kann ich Dir sagen, anscheinend eine Allergie gegen die Edit Funktion. Bitte editiere Deine "Beiträge", sonst wird wahrscheilich ein Mod eine Allergie gegen Deine "Beiträge" kriegen und die einfach entfernen.

Gruss

gandalf


Geschrieben von Medusa am 30.03.2003 um 13:49:

 

Es gibt keinen Befehl, um ganze Ordner zu kopieren. Man kann mit 'CopyFile' (oder wars 'FileCopy') nur einzelne Dateien kopieren.

Wenn du ein wenig programmier-erfahrung hast, is das kein Problem.
Alle Unterverzeichnisse und Dateien im Ordner müssen erfasst werden, und die Dateien alle einzeln kopiert werden. Danach in die einzelnen Unterverzeichnisse wechseln und das selbe mit denen machen, usw.

Hab grad keine Zeit, um dir was zusammen zu basteln. Es gibt auch eine weniger elegante Lösung, indem du den Dos-Befehl 'xcopy' mit entsprechenden Paramenter über 'shell xcopy...' ausführst.

Gib mal in der Eingabe-Auff. 'xcopy/?' ein, damit du weißt, was du als Paramenter anhängen musst.
Damit man das Dosfenster nicht sieht, wenn der Befehl dann ausgeführt wird, kannst du hinten noch ',vbhide' anfügen.

Wie gesagt, diese Methode is ganz Böse, und ich glaub dieses Xcopy gibts auch net auf allen Windows-Systemen, weils ja eigendlich für Dos ist.


Grüßle, Medi


Geschrieben von Lektor am 05.04.2003 um 03:36:

 

code: 
1:

FileSystemObject.CopyFolder "c:\naseweiß\Rubenhanz\*", "c:\WagnersTempOrdner"


@Medusa: Gibt sich auch ne Folder-Methode, nicht nur File!

Bitte an Syntax denken.


Grüßle

Lektor

_________________
My prime love is immortal C64!

SYS 64738


Geschrieben von Compuholic am 05.04.2003 um 12:05:

 

Ich kenne mich zwar nicht wirklich mit Visual Basic aus, aber das, was Du da gepostet hast Lektor sieht mir doch eher wie Visual Basic Script aus oder?

Meines Wissens kann man das auch nicht in VB einbinden (außer natürlich als ShellExecute-Aufruf oder ähnliches *g*)


Geschrieben von Medusa am 06.04.2003 um 14:08:

 

Ich kenn mich mit Vb-Script net wirklich aus, deshalb kannte ich den Befehl nicht.

Es lässt sich dann folgendermaßen in VB einbinden:

Set a = CreateObject("Scripting.FileSystemObject")
a.CopyFolder "C:\QuellOrdner\*", "c:\ZielOrdner"


Grüßle, Medi


Geschrieben von Lektor am 08.04.2003 um 23:02:

 

Nee Ihr Beiden, da ich nu gut viele Jahre gesrkiptet hab, iss sich das die CopyFolder-Methode!

"Scripting.FileSystemObject"
Gibt Zugriff aus das Dateisystem eines Computers.

code: 
1:
2:
3:
4:
5:

Set fs = CreateObject("ScriptingFileSystemObject")
Set a = fs.CreateTextFile("C:\textfile.text", True)
a.Close


Verwendung zur Rückgabe eines TextstreamObjekt, von dem gelesen und geschrieben werden kann.

@Compuholic:
Du sagst: Ich kenne mich zwar mit VB net aus, aber was Du alter Skipter da postest.......

oder schaust Du mal dies:

code: 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

Sub ShowDriveList
    Dim fs, d, dc, s, n
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set dc = fs.Drives
    For Each d in dc
        s = s & d.DriveLetter & " - " 
        If d.DriveType = 3 Then
            n = d.ShareName
        Else
            n = d.VolumeName
        End If
        s = s & n & vbCrLf
    Next
    MsgBox s
End Sub


Ich hab gedacht, daß Du Medusa mich tadelst, weil daß vielleicht nur bei VB 6 und net bei 5 funzt.
Nachlesen in VB-6-Referenz.

Glaubet mir, kann Microsoft-Gedrucktes lügen?

Grüßle

Lektor

_________________
My prime love is immortal C64!

SYS 64738


Forensoftware: Burning Board 2.3.6, entwickelt von WoltLab GmbH