gibt es per VBA die Möglichkeit zu ermitteln welche Laufwerke in meinem Rechner vorhanden sind und diese nacheinander anzusprechen (ausser Diskette und CD-Rom) um eine Datei (Beispiel.xls) dorthin zu speichern.
Danke für Eure Hilfe
Tobias
gibt es per VBA die Möglichkeit zu ermitteln welche Laufwerke in meinem Rechner vorhanden sind und diese nacheinander anzusprechen (ausser Diskette und CD-Rom) um eine Datei (Beispiel.xls) dorthin zu speichern.
Danke für Eure Hilfe
Tobias
diese Aufgabe kannst Du über eine API-Funktion lösen:
Declare Function GetDriveType Lib "kernel32" Alias _
"GetDriveTypeA" (ByVal nDrive As String) As Long
Declare Function GetLogicalDriveStrings Lib "kernel32" Alias _
"GetLogicalDriveStringsA" (ByVal nBufferLength As Long, _
ByVal lpBuffer As String) As Long
Function Laufwerke() As String
Dim lLWTyp As Long
Dim sLW As String
Dim l As Long
Dim l1 As Long
Dim sBuffer As String
sBuffer = Space(200)
l = GetLogicalDriveStrings(200, sBuffer)
If l = 0 Then
CdRomLWBuchstabe = vbNullString
Exit Function
End If
l1 = 1
sLW = Mid(sBuffer, l1, 3)
Do While (Mid(sBuffer, l1, 1) <> vbNullChar)
lLWTyp = GetDriveType(sLW)
Laufwerke = Laufwerke & sLW
l1 = l1 + 4
sLW = Mid(sBuffer, l1, 3)
Loop
End Function
Sub LWAnzeigen()
Dim s As String
s = Laufwerke()
MsgBox "Vorhandene Laufwerke: " & s
End Sub
Viele Grüße
Bernd
MVP für Microsoft Excel
Noch mehr Excel-Tipps und VBA-Datenbank unter: http://held-office.de