Festplatte ermitteln

Forumthread: Festplatte ermitteln
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Festplatte ermitteln

01.07.2007 11:40:05

Kurt P

Guten Morgen,
ich möchte nur die Festplatte ermitteln wo sich gerade meine aktive Datei befindet.
Und ein 2. mal Das aktive Verzeichnis.
ich möchte gern die Festplatte in der Tabelle: "Anfang" D1 und das Verzeichnis D2 kopiert wird.
gr Kurt P

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Festplatte ermitteln

01.07.2007 11:46:42

Hajo_Zi
Danke sehr schnell -)

01.07.2007 11:56:07

Kurt P

AW: Festplatte ermitteln

01.07.2007 11:46:42

Hajo_Zi

Hallo Kurt,


Option Explicit
Sub Kurt_P()
MsgBox "Laufwerk " & Left(ThisWorkbook.Path, 3)
MsgBox "Verzeichnis " & ThisWorkbook.Path
End Sub

Danke sehr schnell -)

01.07.2007 11:56:07

Kurt P

Guten Morgen Hajo,
nachdem ich Dir 2 Tage Probleme bereitet habe, ging es ja ohne Probleme meinerseits.
Habe es so in Zelle gesetzt ist i.o.
MsgBox "Laufwerk " & Left(ThisWorkbook.Path, 3)
MsgBox "Verzeichnis " & ThisWorkbook.Path
' zum testen
Range("a32") = Left(ThisWorkbook.Path, 3)
gr Kurt P

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!