{vb} bestand verplaatsen/copy

[Ronald_stage]

ik wil alle bestanden uit een directory verplaatsen of kopieen

dus in dos zou het zijn copy c:\input\. c:\output\
maar nu in VB

code:

Private Sub Command2_Click()
On Error GoTo ErrHandler

FileCopy "c:\input\.", "c:\output\"




Exit Sub

ErrHandler:

    MsgBox Err.Description

End Sub

dit werkt niet
want je moet het doel bestand opgeven, en je kan geen wildcards gebruiken

nu is er ook iets met FSO maar dat snap ik nog niet helemaal.

enig advies? Links?
BvD

[baskabas]

Werkt *.* niet?

Anders moet je een loopje maken en de Dir functie gebruiken...

Zoiets als

code:

strBron = Dir("c:\input\*.*")

Do While strBron <> ""
  FileCopy "c:\input\" & strBron, "c:\output\" & strBron
  strBron = Dir("c:\input\*.*")
Loop

Dir functie geeft dan alle files 1 voor 1 door.

^{(strings voor dirs natuurlijk wel ff in variabelen zetten...)}

Suc6!

[Verwijderd]

Het kan veel netter met de SHFileOperation api. Met een SHFILEOPSTRUCT type moet je dan even de source, destination, flags en action opgeven en t gaat in een keer

[Basszje]

Kan je beter dan met FileSystemObject doen idd ( fan van FSO ) .


Check anders even op www.devguru.com hoe je precies FileSystemObject gebruikt.