CD VIRGEM
Como posso verificar que o CD é virgem? Queria algo que fosse tudo em VB.
....faça a contagem dos arquivos da unidade de Cd, caso for = a zero é que o cd é virgem...,
bom, se o vb é virgem ou usado eu não sei, mas pq vc não pega o tamanho dele. Acredito que cds com ZERO kbytes usados é = Virgem
A rotina de listagem de arquivos que eu tenho pra isso é esta....
..vc precisa criar um form com um listbox e um botão pra funcionar....
---------------------------------------------------------
Private Sub CommandButton1_Click()
unidade_cd = "D:\"
Dim s As String
'Listbox1.Clear
s = Dir(Unidade_cd & "*.*")
Do
If s = "" Then Exit Do
ListBox1.AddItem (s)
s = Dir
Loop
End Sub
---------------------------------------------------------
Espero ter ajudado...
Um Abraço !!!
Tópico encerrado , respostas não são mais permitidas