VB6获取文件夹下的文件名字去除文件类型

以下是VB6获取文件夹下的文件名字去除文件类型的示例代码：

Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject") '创建文件系统对象fs

Dim fld As Folder
Set fld = fs.GetFolder("C:\Windows") '指定文件夹路径

Dim fil As File
For Each fil In fld.Files '遍历文件夹中的所有文件
    Dim fileName As String
    fileName = Left(fil.Name, InStrRev(fil.Name, ".") - 1) '去除文件类型，只保留文件名
    
    '在这里可以对fileName进行其他操作，比如添加到列表或显示在控件上
Next

Set fil = Nothing
Set fld = Nothing
Set fs = Nothing

这段代码会遍历指定文件夹下的所有文件，然后使用`Left`和`InStrRev`函数去除文件类型，只保留文件名。你可以根据需要对`fileName`进行其他操作，比如添加到列表或显示在控件上。