下面是我写的完整的程序但是生成工程exe时报Dim FolderInfo As FOLDER_INFO这个用户类型未定义,请高手指教????
这是什么原因??如何修改?
我找不到FOLDER_INFO这个结构定义,你们有没有办法帮我定义一下?????谢谢!
这是用VB写的。
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