2007年
-
编辑 删除
取系统路径
取系统路径[@more@]Option Explicit Dim ret As String Dim jj As String Dim winsys As String Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" _ (ByVal lpBuffer As String, ByVal nSize As Long) As Long Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" _ (ByVal lpBuffer As String, ByVal nSize As Long) As Long Private Const max_path = 260 'Private Const max_path1 = 261 Private Sub Comman
