Hur gör man så den läser av alla filer och alla underkataloger filer och sedan slumpkopiera de filerna till en viss katalog eller partiton tills en viss MB???

Använd FileSystemObject

Titta som sagt var på FileSystemObject,

Detta kan vara ett tips för att skicka dig i rätt riktning

<code>
'Kräver att projektet har en referens till "Microsoft Scripting Runtime"

Sub fileSystemTest()

Dim fso As New FileSystemObject
Dim f As File

For Each f In fso.GetFolder("C:\").Files
'Visa när filen är skapad och senast ändrad.
Debug.Print "Skapad: " & f.DateCreated & ", Senast ändrad: " & f.DateLastModified

If Rnd() > 0.5 Then
'Om randomvärdet är störe än 0.5 ska filen behandlas
Debug.Print "Filen " & f.Path & " ska behandlas, t ex kopieras"
End If
Next

End Sub
</code>