relativer Pfad

Forumthread: 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

AW: relativer Pfad

05.10.2008 13:58:04

Anton
AW: relativer Pfad

05.10.2008 14:26:00

Tino
AW: relativer Pfad

05.10.2008 14:38:49

Tino
AW: und noch eine...

05.10.2008 14:47:53

Tino

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

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

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

Beliebteste Forumthreads (12 Monate)

Forumthread: relativer Pfad

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

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread