module1.bas

电子书“Visual Basic 6 网络编程实例教程.rar”

Attribute VB_Name = "Module1"
Option Explicit

Public Const MAX_PATH                   As Long = 260
Public Const ERROR_SUCCESS              As Long = 0

Public Declare Function UrlCreateFromPath Lib "shlwapi" _
   Alias "UrlCreateFromPathA" _
  (ByVal pszPath As String, _
   ByVal pszUrl As String, _
   pcchUrl As Long, _
   ByVal dwReserved As Long) As Long