64位元須更新Declare陳述式

acdx

把之前寫的程式放到64位元的電腦才發現必須更新Declare陳述式，然後以PtrSafe屬性加以標記
Private Declare Function SetCurrentDirectory Lib "kernel32" _
Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long

就是上面這一段出錯 請問該如何改?

c_c_lai

回復 1# acdx

1. Private Declare PtrSafe Function SetCurrentDirectory Lib "kernel32" _
   
2. Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long

複製代碼