不用API，VB是否能取得指定目录下的文件名和它的文件类型？（每个问题最少10分）

Question

如果不用windowsAPI能否取得一个文件的名称和类型（.rar,.txt等类型，只要取得后缀就好）？如何取得呢？并且如何改名呀？FSO只能取得文件夹下的文件名么？再向下就取不了了？（能否简单写下代码？谢谢）
如何向局域网内其他的计算机写文件（当本机有权限的时候。通过FSO么？这个问题请给我讲讲，不用写代码了）？
谢谢各位，全部解决追加。

Answer 1

如果不用windowsAPI能否取得一个文件的名称和类型（.rar,.txt等类型，只要取得后缀就好）？
------------------------------------------------------------
用Fso的GetExtensionName可以得到类型名（txt,doc.xls等）

Answer 2

如何取得呢？并且如何改名呀？FSO只能取得文件夹下的文件名么？再向下就取不了了？（能否简单写下代码？
-------------------------------------------------------------------
   Dim fso As New FileSystemObject
    Debug.Print fso.GetExtensionName("c:\test.txt")再向下就取不了了？
----------------------
是指什么意思？？

Answer 3

FSO也有一个File对象，完全可以实现你要的功能

Answer 4

获取某目录下文件的路径及名称(包括所有子目录)：Private Sub Form_Load()
    SeachFile ("C:\test\")   '遍历C:\test文件夹
End Sub'获取某目录下文件的路径及名称(包括所有子目录)
Public Sub SeachFile(ByVal strPath As String)
    Dim Fso As Object
    Dim Fol As Object
    Dim Fil As Object
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set Fol = Fso.GetFolder(strPath)
    
    For Each Fil In Fol.Files
'        Debug.Print Fil.Path   '打印路径及文件名
        Debug.Print Fso.GetExtensionName(Fil.Path) '打印文件的后缀名
    Next
    '遍历子目录
    For Each Fol In Fol.SubFolders
         SeachFile Fol
    Next
End Sub

Answer 5

修改后缀名，可以用 Name As 来做：例如:Name "c:\test.txt" As "c:\test.doc"

Answer 6

如何向局域网内其他的计算机写文件（当本机有权限的时候。通过FSO么？这个问题请给我讲讲，不用写代码了）？映射成本地硬盘,用fso就可以操作

Answer 7

Public Sub SeachFile(ByVal strPath As String)
    Dim Fso As Object
    Dim Fol As Object
    Dim Fil As Object
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set Fol = Fso.GetFolder(strPath)
    
    For Each Fil In Fol.Files
'        Debug.Print Fil.Path   '打印路径及文件名
        Debug.Print Fso.GetExtensionName(Fil.Path) '打印文件的后缀名
    Next
    '遍历子目录
    For Each Fol In Fol.SubFolders
         SeachFile Fol
    Next
End Sub

Answer 8

FSO只能取得文件夹下的文件名么？再向下就取不了了？（能否简单写下代码？
-------
我的这个意思是，如果文件夹中还有文件夹，是否就不能再向下取了？

Answer 9

'遍历子目录
    For Each Fol In Fol.SubFolders
         
    Next用这个方法

Answer 10

FileLen 函数
      返回一个 Long，代表一个文件的长度，单位是字节。语法FileLen(pathname)必要的 pathname 参数是用来指定一个文件名的字符串表达式。pathname 可以包含目录或文件夹、以及驱动器。说明当调用 FileLen 函数时，如果所指定的文件已经打开，则返回的值是这个文件在打开前的大小。注意 若要取得一个打开文件的长度大小，使用 LOF 函数。

Answer 11

 不用API 至少有10种以上的方法

Answer 12

如果不用windowsAPI能否取得一个文件的名称和类型（.rar,.txt等类型，只要取得后缀就好）？
----------------------------------
可以用FSO对象。如果需要特定功能，可以将API函数封装在DLL库中以供Windows或ASP程序调用，建议使用此方法。如何向局域网内其他的计算机写文件（当本机有权限的时候。通过FSO么？这个问题请给我讲讲，不用写代码了）？
-----------------------------------
可以先使用网络映射，然后在通过FSO或API方式写入