请帮助，说用户类型未定义？？？？？？

Question

下面是我写的完整的程序但是生成工程exe时报Dim FolderInfo As FOLDER_INFO这个用户类型未定义，请高手指教？？？？
这是什么原因？？如何修改？Private Sub Command1_Click()
If Command1.Caption = "开始轮循" Then
Command1.Caption = "结束轮循"
Flag = True
Else:
   Command1.Caption = "开始轮循"
   Flag = False
End IfIf Right$(Text2.Text, 1) <> "\" Then Text2.Text = Text2.Text & "\"Timer1.Interval = Text3.Text
End SubPrivate Sub Form_Load()
webflag = True
Text1.Text = App.Path
Text2.Text = "f:\备份"
Text4.Text = "f:\解析"
Command1.Caption = "开始轮循"
Text3.Text = "1"End SubPrivate Sub Timer1_Timer()
 Dim FolderInfo As FOLDER_INFO
 Path = ""
FolderInfo = GetFolderInfo(Text1.Text, Text2.Text, Text4.Text)If CStr(FolderInfo.lngNumFiles) <> 0 Then
If webflag Then
WebBrowser1.Navigate "http://www.ceoglobal.net/Connect/Connect.jsp"
webflag = False
Else
WebBrowser1.Refresh
End If
End If
If Flag = False Then Timer1.Interval = 0
End Sub

Answer 1

FOLDER_INFO?
建议单步调试一下

Answer 2

这个问题是你的FOLDER_INFO这个类型根本就没有定义,vb根本就不认识这个东东,如果这个程序是你从哪个地方copy来的话建议再去找找,一定有个地方定义FOLDER_INFO这个类型了,而你没有拷贝到,看你程序的样子FOLDER_INFO应该是一个strucure

Answer 3

會計這里有問題 Dim FolderInfo As FOLDER_INFO
 Path = ""
FolderInfo = GetFolderInfo(Text1.Text, Text2.Text, Text4.Text)改成﹕
 Dim FolderInfo As object,fs as object 
set fs=CreateObject("Scripting.GetFolderInfo")  -->這個是類似﹐你可能不用這個對象
set FolderInfo = fs(Text1.Text, Text2.Text, Text4.Text)

Answer 4

找到FOLDER_INFO 结构的定义!

Answer 5

Dim FolderInfo As FOLDER_INFO
FOLDER_INFO这个结构没有定义。
定义它。

Answer 6

这是Ｃ中定义的结构，（包含在：browser.h)头文件中，
typedef struct _FOLDER_INFO {
    BASETYPE tObjectity;
    char *pszTag;
    DWORD dwTag;
    DWORD ctFolders;
    DWORD *pFolderTags;
    DWORD ctFilters;
    DWORD *pFilterTags;
    DWORD ctScalars;
    SCALAR_INFO *pScalars;
    void *pNewFunc;
} FOLDER_INFO;

Answer 7

我找不到FOLDER_INFO这个结构定义，你们有没有办法帮我定义一下？？？？？谢谢！