>Hello!
>Can anybody share code for remove root folders with internal files and subfolders

The Scripting.FileSystemObject can do this directly on other than the root of a drive; look at the DeleteFolder method. It cannot delete the root folder, so you'd need to obtain the root folder object of the drive and then iterate the SubFolders collection and Files collection yourself, invoking the Delete method of the contained objects, something along the lines of:

oFSO = CREATEOBJ('Scripting.FileSystemObject')
oRoot = oFSO.GetFolder('F:\')
FOR EACH oFolder IN oRoot.SubFolders
   oFolder.Delete(.T.)
ENDFOR
FOR EACH oFile IN oRoot.Files
   oFile.Delete(.T.)
ENDFOR

This requires the WSH. You may have to change attributes of folders and files with the System attribute set before invoking their Delete methods. The deletions are not saved to the Recycle Bin, so you're screwed if you're wrong.