Visual Basic 6 - Verificare la presenza di un Drive.

Salve a tutti..Sono un neofita programmatore e vorrei saper e se qualcuno mi sa dire come posso fare in modo che in vb6 il programma verifichi la presenza di un drive e se esiste ci scriva, cioè:
Se C:\ esiste allora
apri C:\ & ("\Data.txt" per scrivere #1
Io ho provato Così e non funziona..
Private Sub Command1_Click()
Dim Drive1 As Object
Drive1 = "A:\"
If Drive1.Exists = True Then
Open "A:\" & ("\Data.txt" For Output As #1
End If
aiutatemi è importante..

potresti usare il controllo DriveListBox, oppure usare l'oggetto filesystemobject(Scripting.FileSystemObject) o usare anche le api di windows, ad esempio:

Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Private Sub Form_Load()
Dim drvtmp As String
Dim drives() As String
Dim res As Long
Dim lnstr As Integer

res = GetLogicalDriveStrings(0, drvtmp)
drvtmp = String(res, 0)
lnstr = res
res = GetLogicalDriveStrings(lnstr, drvtmp)
drvtmp = Trim(drvtmp)
drvtmp = Replace(drvtmp, vbNullChar, "-")
drvtmp = Replace(drvtmp, "-", "-")
drives = Split(drvtmp, "-")

End Sub

a questo punto ottieni l'array drives che contiene le lettere dei drive.

Mettete titoli più significativi... Anche se si tratta di qualcosa di importante ogni richiesta ha la stessa priorità... Il moderatore deve gestire anche altri forum, quindi non può badare ad ogni topic...

sorry..comunque non è quello che intendevo;
in pratica sto creando un programma che salva una copia "Data.txt" su tutti i drive disponibili all'evento click senza sapere quali siano le lettere unità..io ho provato a scrivere un codice che copia "Data.txt" su tutti i drive: A:\ B:\ C:\ ecc... ma quando il programma non trova un drive di quelli della lista dà errore e si chiude..il punto è che il programma deve funzionare su ogni computer, ma io non so come si chiamino i drive di quel computer..dovrei fare una cosa del tipo:

If "A:\" Exists Then Open "A:\" & ("\Data.txt" For Output As #1
ElseIf "B:\" Exists Then Open "B:\" & ("\Data.txt" For Output As #1
Ma Non So Proprio Come Fare

puoi fare ciò in diversi modi...

con un drivelistbox e questo codice

private sub command1_click()
for i=0 to drivelist.listcount-1
open drivelist.list(i)& "/data.txt" .........
...
next i
end sub

oppure usi la funzione dir che restituisce un valore solo se la directory passata come parametro esiste...
in pratica è quel che hai chiesto

private command1_click()
for i=0 to 25
if dir(chr(65+i)&":\") then
open chr(65+i)&":\data.txt" ........
...
next i
end sub

prova a mettere "a:\data.txt"