[Resolvido]Função funciona em 32 Bit mas não em 64

Boa tarde Amigos

Tenho esta função mas só funciona em 32, já tentei alterar "from Win32_LogicalDisk", para from Win64_LogicalDisk mas nada


 Public Function fncUnidadesDisco() As String
   
   Dim objWMIService As Object
   Dim Disk
   Dim S As String
   Set objWMIService = GetObject("winmgmts://localhost")
   For Each Disk In objWMIService.ExecQuery("select * from Win32_LogicalDisk")
       If Disk.DeviceID = "C:" Then
       'nao faz nada
       ElseIf Disk.DeviceID = "D:" Then
       'nao faz nada
       Else
           S = S & Disk.DeviceID & ";"
       End If
   Next




   If Len(S) > 1 Then fncUnidadesDisco = S
   
   Set objWMIService = Nothing
   End Function


Se ficar a dar para os dois melhor ainda
Obrigado

Olá Assis,

Já experimentou essa função sem alterar nada no MsAccess a 64 bits, deu erro? onde?

Fica a documentacao:

Código:

https://learn.microsoft.com/en-us/windows/win32/wmisdk/wmi-tasks--disks-and-file-systems

Abraço

Olá de novo Assis,

Resumindo, essa função, está bem para 32 e 64 bits, acabei de testar veja


Verifique na parte do IF ... o que você pretende fazer.

Abraço

Boa tarde Teixeira

Ver imagem

Olá Assis,

É no sistema operativo ou MsAccess 64 que não funciona?
O ideal será montar pequeno exemplo desse form a pesquisar as unidades e partilhar para os membros do forum poderem testar e dar o feedback

Abraço e bom domingo

Bom dia
Teixera

É no Access, na caixa de combinação.

PS- Não consigo desmembrar para colocar um exemplo

Obrigado

Olá Assis,

Criei um pequeno exemplo, teste em 32 e 64 e depois diga se funciona ou não.

Código:

Código:

Private Sub Form_Open(Cancel As Integer)
'2022 Alvaro Teixeira para MaximoAccess
   Dim objWMIService As Object
   Dim Disk
   Set objWMIService = GetObject("winmgmts://localhost")
  
   For Each Disk In objWMIService.ExecQuery("select * from Win32_LogicalDisk")
       Me.Lista.AddItem Disk.DeviceID
   Next

   Set objWMIService = Nothing
End Sub

Abraço

Teixeira

Tem que ser uma caixa de combinação para o utilizador escolher a Drive que deseja

Obrigado

Olá Assis,

Não vamos fugir do tópico.

1) o exemplo que partilhei identifica as unidades drive?
2) funciona em 32 bits e 64 bits?

Se sim a ambas, você só tem que ajustar o código ao seu sistema de segurança.

Se usar o meu form, tem que verificar se o utilizador fez uma escolha na caixa de listagem Lista e fazer a copia.

Abraço

Boa tarde

Teixeira

O erro foi meu na mensagem Nº 4

Faltou dizer para listar só as que estão Livres

Desculpa e

Obrigado

Olá Assis,

Se não quer que liste as unidades C: e D: como tinha no seu código é só adicionar o IF.
No entanto, volto a perguntar o exemplo funciona ou não a 32 e 64 BIts?
Porque na minha opinião , como já tinha referido o código funciona em ambos.
Quer o seu, quer o que disponibilizei.

Abraço

Teixeira
No meu código 64 as letras das drives não aparecem.

No 32 as letras das drives aparecem .

Obrigado

Teixeira

Ver imagem 4 é no 32

Esta agora é no 64 não aparece e letra ......

Olá Assis,

Fiz um novo exemplo com a Combo como tinha pedido.
Teste em 32 e 64 Bits, deve funcionar em ambos


Abraço

Boa tarde, Teixeira

Funciona no 32 e 64, só tem um senão !!!!!

Não reconhece o "Cartão de Memória" mas só no 64.



O Amigo colocou a função, ao abrir o formulário.

Em que acontecimento seria chamada se o código estiver num "Módulo"?

Muito Obrigado

Olá Assis,

Então estamos esclarecidos que o código funciona para detectar as unidades de drive a 32 e 64 Bits.
Respondendo à sua pergunta pode ser onde quiser, por exemplo ter um botão "Verificar Drives Disponíveis para cópia".

Não "reconhecer ..." pode ser da forma que está formatado, jverifique isso.
Já experimentou com outro cartão, PenDrive ou disco externo?
Se tiver possibilidade teste.

Abraço

Boa tarde

A formatação do "Cartão de Memória é igual.

Nas Pens não tem problemas

Obrigado, vou dar como resolvido