ik heb geprobeerd met broncode :
ik heb klachten van enkele users die onder winodws 98 gekregen.
daar heb ik nog geen oplossing voor dit probleem gevonden
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| Public Function GetDataFolder(form4 As Form, Appdirectory As String)
On Error GoTo GenericFolder
Dim ReturnVal As Long
Dim a As String * 256
Dim PathName As String
PathName = String$(260, Chr$(32))
RetVal = SHGetFolderPath(form4.hwnd, CSIDL_APPDATA, 0, SHGFP_TYPE_CURRENT, PathName)
PathName = Left(PathName, InStr(PathName, vbNullChar) - 1)
GetDataFolder = PathName + "\" + Appdirectory
Exit Function
GenericFolder:
'Since Windows XP\2000 is not installed
' we don't have this api so just use the A ' pp.path
If Err.Number = 453 Then
Dim b As String
b = Environ$("SystemRoot")
If Trim(b) = "" Then b = "C:\Windows"
GetDataFolder = b & "\Application Data\" & Appdirectory
End If
End Function |
ik heb klachten van enkele users die onder winodws 98 gekregen.
daar heb ik nog geen oplossing voor dit probleem gevonden