作者：    来源：互连网    点击：    日期：2008-4-7 17:41:34   

If Not blnRC Then
Exit Do
Else
strTemp = Left(pData.cFileName, InStr(1, pData.cFileName, String(1, 0), vbBinaryCompare) - 1)
End If

Loop
Text1.Text = strTemp
End If
End If
InternetCloseHandle lngHINet

InternetCloseHandle lnginetconn
InternetCloseHandle lnginet


End Sub

首页 上一页 [1] [2] [3]  下一页 尾页