PERMISSÃO AQUIVO OU PASTA
Pessoal,
Não consigo ler as propriedades de um objeto pelo FSO. Utilizo este código, mas ocorre erro run time error 5: invalid procedure call or argument.
Entretanto, se eu quiser verificar apenas [Ô]C:[Ô] funciona perfeitamente.
A referencia ao [ô]Microsoft Scripting Runtime[ô] já está feita.
Utilizo win7 64bits
Em outro tópico, http://www.vbmania.com.br/index.php?modulo=forum&metodo=abrir&id=445161&mundo=1&ultimapagina=1 também mostro que estou com dificuldades de criar pasta+subpasta.
Grato, Gardel
Private Sub Command1_Click()
Dim fso As New FileSystemObject
Dim arquivo As Drive
Set arquivo = fso.GetDrive([Ô]C:\foto.jpeg[Ô])
With arquivo
If .IsReady Then
List1.AddItem [Ô]Letra associada ao drive : [Ô] & .DriveLetter
List1.AddItem [Ô]Nome do Volume : [Ô] & .VolumeName
List1.AddItem [Ô]Espaço total do drive : [Ô] & FormatNumber(.TotalSize / 1024, 0)
List1.AddItem [Ô]Espaço disponÃvel livre no drive : [Ô] & FormatNumber(.FreeSpace / 1024, 0)
List1.AddItem [Ô]Número de série do drive : [Ô] & .SerialNumber
List1.AddItem [Ô]Tipo do drive: [Ô] & .DriveType
Else
MsgBox [Ô] A unidade não esta pronta !! Verifique !![Ô], vbCritical, [Ô]Erro de acesso[Ô]
End If
End With
End Sub
Não consigo ler as propriedades de um objeto pelo FSO. Utilizo este código, mas ocorre erro run time error 5: invalid procedure call or argument.
Entretanto, se eu quiser verificar apenas [Ô]C:[Ô] funciona perfeitamente.
A referencia ao [ô]Microsoft Scripting Runtime[ô] já está feita.
Utilizo win7 64bits
Em outro tópico, http://www.vbmania.com.br/index.php?modulo=forum&metodo=abrir&id=445161&mundo=1&ultimapagina=1 também mostro que estou com dificuldades de criar pasta+subpasta.
Grato, Gardel
Private Sub Command1_Click()
Dim fso As New FileSystemObject
Dim arquivo As Drive
Set arquivo = fso.GetDrive([Ô]C:\foto.jpeg[Ô])
With arquivo
If .IsReady Then
List1.AddItem [Ô]Letra associada ao drive : [Ô] & .DriveLetter
List1.AddItem [Ô]Nome do Volume : [Ô] & .VolumeName
List1.AddItem [Ô]Espaço total do drive : [Ô] & FormatNumber(.TotalSize / 1024, 0)
List1.AddItem [Ô]Espaço disponÃvel livre no drive : [Ô] & FormatNumber(.FreeSpace / 1024, 0)
List1.AddItem [Ô]Número de série do drive : [Ô] & .SerialNumber
List1.AddItem [Ô]Tipo do drive: [Ô] & .DriveType
Else
MsgBox [Ô] A unidade não esta pronta !! Verifique !![Ô], vbCritical, [Ô]Erro de acesso[Ô]
End If
End With
End Sub
Provavelmente voce nao tem direitos de acesso ao arquivo, e algo previsivel e muito comum de gerar erros no programa.
Dica, faca uma funcao que primeiramente teste se ha direito de acesso, e se houver executar as acoes que voce precisa.
Dica, faca uma funcao que primeiramente teste se ha direito de acesso, e se houver executar as acoes que voce precisa.
Você está usando o método GetDrive, só pelo nome já da a entender que ele é para pegar informações do disco (Drive), se quer informações do arquivo então tente usar o objeto File (em vez do Drive) e a função GetFile
Faça seu login para responder