Place a file in EVERY folder/directory

[paolo]

With this code you can know the name of every directory on "c:\", and using an API called "Copyfile" you can copy a file in every directory on your hard disk ( using a "Do Loop").

Code:
MyPath = "c:\"
Loop
MyName = Dir(MyPath, vbDirectory)' Searches fo all dyrectories name
Copyfile API here
Do While MyName <> ""

I hope this can help you.