Visual Basic 6 - copia

io avrei necessità di copiare un file in tutte le cartelle presenti nella sua path...

tipo se è in C:\prova e in questa cartella ci sono altre 5 cartelle, il file in questione deve essere copiato in tutte le sottocartelle (C:\prova\*).

Sarebbe facile, la stringa dovrebeb essere questa:

FileCopy (".\file.ext"), (".\*\file.ext")

però mi dà errore... come posso fare?

Puoi usare la funzione Dir per ottenere la lista di tutte le cartelle ... oppure un oggetto File System Object

Per copiare una cartella con il FSO(File system object) basta fare:

dim fso2
Set fso2 = CreateObject("scripting.FileSystemObject")
fso2.CopyFolder Percorso, Destinazione, True*
End Sub

*quel True significa che se ad esempio tu vuoi copiare la cartella C:\ in C:\ se in C:\ è già presente una cartella di nome 1, la sostituisce...

per copiare semplicemente un file non c'è bisogno di usare l'oggetto fso. Basta l'api CopyFile. L'oggetto file system object deve servire più che altro per muoversi nelle sotto cartelle.
Dovresti spiegare piuttosto il modo per muoversi nelle sotto cartelle cosi per esempio.

Private Sub Form_Load()
Dim fso As New FileSystemObject

Dim fld As Folder
Set fld = fso.GetFolder("C:\prova")


For Each fld In fld.SubFolders
fso.CopyFile "filedacopiare", fld

Next

Set fso = Nothing
Set fld = Nothing
End Sub

comunque potresti usare anche le api di windows per muoverti nelle sottocartelle.

...Posso sapere a cosa ti serve copiare un file nelle sotto directory?

@Grg ... lui non vuole copiare tutta una cartella in un'altra ma

"io avrei necessità di copiare un file in tutte le cartelle"

quindi 1 file in tutte le cartelle ...

lol!

Scusatemi!! non avevo letto bene!