INCOMPATIBILIDADE COM WINDOWS 10

JANDER 21/09/2016 16:05:11
#467227
Boa Tarde, Estou tendo problema ao alterar e ler arquivo .ini utilizando a função abaixo no vb6 com windows 10. Quando chamo um dos métodos abaixo ele criar uma copia idêntica do arquivo ini na pasta C:\Users\User\AppData\Local\VirtualStore. alguem já se deparou com esse problema? 

  Declare Function WritePrivateProfileString Lib [Ô]kernel32[Ô] Alias [Ô]WritePrivateProfileStringA[Ô] (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Declare Function GetPrivateProfileString Lib [Ô]kernel32[Ô] Alias [Ô]GetPrivateProfileStringA[Ô] (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Public Sub WriteINI(Section As String, Key As String, text As String, filename As String)
  WritePrivateProfileString Section, Key, text, filename
End Sub

Public Function ReadINI(Section As String, Key As String, filename As String)
 Dim retlen As String
 Dim ret As String
 ret = String$(255, 0)
 retlen = GetPrivateProfileString(Section, Key, [Ô][Ô], ret, Len(ret), filename)
 ret = Left$(ret, retlen)
 ReadINI = ret
End Function
JCM0867 21/09/2016 23:06:30
#467261
Instalou o SP6 do VB6? Qual a mensagem de erro?
realmente o VB6 não é muito amiguinho do Windows 10, sempre tem uns enguiços e a anos não existe mais suporte para o VB6 para as ultimas versões do Windows. é do tipo tomara que funcione.
Não sei se está familiarizado com o VB.NET ou C#. Caso não familiarizado e tiver tempo comece a pensar no VB.NET ou C#, esses estão no VS2015 e já está pipocando algo para 2017
Tópico encerrado , respostas não são mais permitidas
Voltar