求大牛一行行给小弟解释vbs遍历目录的代码

Function GetCurrentFolderFullPath

Set fso = CreateObject("Scripting.FileSystemObject")
GetCurrentFolderFullPath = fso.GetParentFolderName(WScript.ScriptFullName)
End Function
Function GetSubFolders(currentFolderFullPath)
Set fso = CreateObject("Scripting.FileSystemObject")
Set currentFolder = fso.GetFolder(currentFolderFullPath)
Set subFolderSet = currentFolder.SubFolders
For Each subFolder in subFolderSet
'MsgBox "subFolder.Path=" & subFolder.Path
GetSubFolders = subFolder.Path & vbcrlf & GetSubFolders & GetSubFolders(subFolder.Path)
Next
End Function
MsgBox GetSubFolders(GetCurrentFolderFullPath)

第一行就有错误
Function GetCurrentFolderFullPath
应该写成
Function GetCurrentFolderFullPath()

基本上错误很多，代码很多多余。。是一个新手编的程序。不想解释