Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1012to1016
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

relativer Pfad

relativer Pfad
05.10.2008 13:30:01
Peter
Hallo liebe Leute,
ich möchte statt des nachfolgenden absoluten Pfades einen relativen Pfad verwenden, da ich den Stick bzw. die CD von dem/r kopiert werden soll ja nicht immer im gleichen Laufwerk ist. Wer kann mir da helfen dass das funzt?
Ergebnis = Shell("E:\EigeneDatei\Service\Tools\
Also sprich...statt Shell("E:\ ... soll überprüft werden in welchem Laufwerk sich die Quelle befindet
Vielen Dank
Peter S

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: relativer Pfad
05.10.2008 13:58:04
Anton
Hallo Peter,
so vllt:

Sub b()
  laufwerk = Left(ThisWorkbook.Path, 3)
  MsgBox laufwerk
End Sub  

mfg Anton
AW: relativer Pfad
05.10.2008 14:26:00
Tino
Hallo,
meinst Du es so?
Modul Modul1
Option Explicit 
 
Private Declare Function PathFileExists Lib "shlwapi.dll" _
  Alias "PathFileExistsA" (ByVal pszPath As String) As Long 
   
Public Function IsFilePath(strPath As String) As Boolean 
  IsFilePath = CBool(PathFileExists(strPath)) 
End Function 
Sub vv() 
Dim A As Byte 
Dim Laufwerk As String 
Const Pfad As String = "\EigeneDatei\Service\Tools" 
 
 
For A = 97 To 122 
 If IsFilePath(UCase(Chr(A)) & ":" & Pfad) = True Then 
  Laufwerk = UCase(Chr(A)) & ":" & Pfad 
  Exit For 
 End If 
Next A 
 
If Laufwerk = "" Then 
 'nicht gefunden 
 MsgBox "Pfad nicht vorhanden", vbCritical 
Else 
 'gefunden 
 MsgBox "Pfad gefunden unter:" & Chr(13) & _
    Laufwerk & Chr(13) & Chr(13) & _
    "Quelle liegt im Laufwerk" & Chr(13) & _
    UCase(Chr(A)) & ":\" 
End If 
 
End Sub 


Gruß Tino

www.VBA-Excel.de


Anzeige
AW: relativer Pfad
05.10.2008 14:38:49
Tino
Hallo,
oder so?
Modul Mit_Scripting_filesystemobject
Option Explicit 
 
Private Declare Function PathFileExists Lib "shlwapi.dll" _
  Alias "PathFileExistsA" (ByVal pszPath As String) As Long 
   
Public Function IsFilePath(strPath As String) As Boolean 
  IsFilePath = CBool(PathFileExists(strPath)) 
End Function 
Sub Test2() 
Dim fso As Object 
Dim Laufwerk, bolLaufwerk As Boolean 
Const Pfad As String = "\EigeneDatei\Service\Tools" 
Set fso = CreateObject("Scripting.filesystemobject") 
 
For Each Laufwerk In fso.drives 
 If IsFilePath(Laufwerk & Pfad) = True Then 
  bolLaufwerk = True 
  Exit For 
 End If 
Next 
 
If bolLaufwerk Then 
  'gefunden 
 MsgBox "Pfad gefunden unter:" & Chr(13) & _
    Laufwerk & Pfad & Chr(13) & Chr(13) & _
    "Quelle liegt im Laufwerk" & Chr(13) & _
    Laufwerk & "\" 
Else 
 'nicht gefunden 
 MsgBox "Pfad nicht vorhanden", vbCritical 
End If 
 
End Sub 
 


Gruß Tino

www.VBA-Excel.de


Anzeige
AW: und noch eine...
05.10.2008 14:47:53
Tino
Hallo,
…mit der Dir Funktion.
Modul Mit_Scripting_filesystemobject
Option Explicit 
 
Sub Test2() 
Dim fso As Object 
Dim Laufwerk, bolLaufwerk As Boolean 
Const Pfad As String = "\EigeneDatei\Service\Tools" 
Set fso = CreateObject("Scripting.filesystemobject") 
 
For Each Laufwerk In fso.drives 
 If Dir(Laufwerk & Pfad, vbDirectory) <> "" Then 
  bolLaufwerk = True 
  Exit For 
 End If 
Next 
 
If bolLaufwerk Then 
  'gefunden 
 MsgBox "Pfad gefunden unter:" & Chr(13) & _
    Laufwerk & Pfad & Chr(13) & Chr(13) & _
    "Quelle liegt im Laufwerk" & Chr(13) & _
    Laufwerk & "\" 
Else 
 'nicht gefunden 
 MsgBox "Pfad nicht vorhanden", vbCritical 
End If 
 
End Sub 
 


Gruß Tino

www.VBA-Excel.de


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige