查看: 44  |  回复: 0
  VB6 利用API得到windows的临时目录
楼主
发表于 2024年10月22日 19:44

新建From1(窗体),新建Command1(按钮CommandButton),代码:

Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Private Sub Command1_Click()
    Dim a As String * 256
    GetTempPath 256, a
    MsgBox Left(a, InStr(a, Chr(0)) - 1)
End Sub


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com