pos mporo na antigrapso fakelous me thn visual basic?

[Exoskeletor]

thelo an ginete na antigrfo ta arxeia pou exei ena cd (mazh me tous fakelous pou exei) se ena allo fakelo.kserete pos mporo na to kano?exei brei tropo na antigrapso ola ta arxeia alla den mporo na antigrapso kai tous ipofakelous

[javanidhs]

http://www.juicystudio.com/tutorial/vb/files.asp#rec

[Exoskeletor]

psilomperdema eine ato..

[javanidhs]

ναι δεν εχει...ολη την απαντηση μεσα. ενα μερος της..οσο αναφορα τα subfolders.Αν ψαξεις και αλλο..θα βρεις παρα πολλα!

[Exoskeletor]

kita..ego pros to paron exo ayton ton kodika:

 

sSource = Drive2 & "\"

sSourceDir = sSource

 

sBack = Text6 & "\"

sBackDir = sBack

 

 

sNextFile = dir$(sSourceDir)

 

While sNextFile <> ""

ProgressBarCount = ProgressBarCount + 1

sNextFile = dir$

Wend

ProgressBar1.Max = ProgressBarCount

sNextFile = dir$(sSourceDir)

Label3.Visible = True

 

While sNextFile <> ""

FileCopy sSourceDir & sNextFile, sBackDir & sNextFile

ProgressBar1.value = ProgressBar1.value + 1

Label3.Caption = Int(ProgressBar1.value * 100 / ProgressBar1.Max) & " % Complete"

Label3.Refresh

 

sNextFile = dir$

Wend

 

MousePointer = Default

File1 = Text6

File1.Enabled = True

Command3.Enabled = True

Label3.Visible = False

 

Exit Sub

 

FileCopyError:

MsgBox "There was a problem copying the File's"

End

 

ayto pou exo ftiaksei metraei ola ta arxeia pou exei enas fakelos gia antigrafh kai meta ayto pou briskei to bazei sto max value mias progress bar.kai meta antigrafei ta arxeia.den antigrafei omos tous fakelous..

[javanidhs]

η λογικη ειναι η εξης...

αρχιζεις απο το root directory παιρνει οτι υπαρχει απο κατω...

αυτα θα ειναι μια λιστα απο αρχεια και directory.

θα loopareis εσυ στα items θα βρισκεις...τι τυπος ειναι το καθενα..αν ειναι ...αρχειο ή φακελος..και αναλογα με το τι ειναι θα κανεις το εξης...

αν ειναι αρχειο απλα τα αντιγραφεις..αν εινα φακελος...μπαινεις μεσα του και κανεις οτι πανω..Ουσιαστικα μια αναδρομικη μεθοδος ειναι που πηγαινει μεχρι κατω το File Tree. Οταν βρισκει αρχειο απλα το αντιγραφει στο σωστο path οταν βρισκει φακελο φιαχνει τον αντοιστιχο...και μετα ψαχνει μεσα του τι εχει...

 

ελπιζω να μην σε μπερδεψα!

[Exoskeletor]

den me mperdepses.ayto psaxno.to thema eine ti prepei na alakso ston kodika mou gia na psaxnei kai stous ipofakelous?

[kostas_crete]

Ftiakse ena dirlist box kai ena filelist box

kane ena loop pou 8a diatrexei to path pou 8es sto dirlist box

Gia ka8e dir kane set to path tou filelist box sto cuurent path tou dirlist box

Opote etsi 8a mporeis na diateexeis ena fakelo toys ypofakelous tou kai ola ta arxeia tous.

Kane to visible property false ama den 8es na fainontai.

Source code coming up in a few moments.....

[kostas_crete]

Mallon oxi moments giati den exw vb stimeni

avrio 8a exw source.Psaksto ligo monos sou kai cu tomorrow.

[ablaz3r]

http://www.planet-source-code.com

[Exoskeletor]

den mporo re gamoto na bro enan aplo kodika pou tha bazeis to source directory, to destination directory kai tipota allo (thelo ena kodika na antigrafei ola ta arxeia apo ena cd se ena fakelo sto pc mazh me ipofakelous kai read only arxeia)