module1.bas

来自「复件 填写文件的物理地址后根据物理路径生成网站的绝对路径 方便网络访问.rar」· BAS 代码 · 共 29 行

Attribute VB_Name = "Module1"
Option Explicit

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


Public Const URL_ESCAPE_PERCENT      As Long = &H1000

Public Const URL_ESCAPE_SPACES_ONLY As Long = &H4000000

Public Const URL_DONT_SIMPLIFY      As Long = &H8000000

Public Const URL_UNESCAPE            As Long = &H10000000

Public Const URL_ESCAPE_UNSAFE       As Long = &H20000000

Public Const URL_PLUGGABLE_PROTOCOL  As Long = &H40000000

Public Declare Function UrlCanonicalize Lib "shlwapi" _
   Alias "UrlCanonicalizeA" _
  (ByVal pszURL As String, _
   ByVal pszCanonicalized As String, _
   pcchCanonicalized As Long, _
   ByVal dwFlags As Long) As Long