my problems are in here:
Dim FS As New FileSystemObject
Dim FSfile
Dim FSfolder As Folder
Dim subfolder As Folder