Hallo zusammen,
meine Tabelle wird mit Hilfe einer UserForm ausgefüllt, diese legt auf unserem Server einen Oberordner mit einem Unterordner an.
Erstellt einen Hyperlinkt und öffnet das angelegt Verzeichnis.
Funktioniert soweit alles Prima,
wir haben aber in dem Verzeichnis Ordner die nicht in der Tabelle aufgelistet sind (alter Daten bestand)
Ist es möglich eine Abfrage zu schaffen, das vorher Geschaut wird ob ein Oberordner mit der Nummer schon auf dem Server existiert und darauf hin eine msgBox erstellt (Mat vorhanden oder so?)
bis jetzt sieht mein code so aus.
Vielen Dank :)
'Ordner in Verzeichnisss anlegen (Achtung Pfad ändern!)
Dim Ord As String
Dim TextBox1 As String
Dim TextBox2 As String
Dim UN As String
Dim OrdnerNeu As String
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
UN = Environ("USERNAME")
Ord = "\\cadsrv-1\CAM\Arbeitsvorrat\" & TextBox_Materialnummer '& "_" & TextBox_Freigabedatum '& "\"
If fso.folderexists(Ord) = True Then
Exit Sub
Else
MkDir Ord
MsgBox "Ordner " & Ord & " angelegt"
End If
'unterOrdner in Verzeichnisss anlegen (Achtung Pfad ändern!)
Dim uOrd As String
Set fso = CreateObject("Scripting.FileSystemObject")
UN = Environ("USERNAME")
uOrd = "\\cadsrv-1\CAM\Arbeitsvorrat\" & TextBox_Materialnummer & "\" & TextBox_Freigabedatum & "_" & TextBox_Materialnummer
If fso.folderexists(uOrd) = True Then
Exit Sub
Else
MkDir uOrd
MsgBox "Ordner " & Ord & " angelegt"
End If
'Ordner Automatisch öffnen nach Anlegen (Achtung Pfad ändern!)
Dim strFolderPath As String
strFolderPath = "\\cadsrv-1\CAM\Arbeitsvorrat\" & TextBox_Materialnummer '& "_" & TextBox_Freigabedatum '& "\"
ThisWorkbook.FollowHyperlink (strFolderPath)
'Hyperlink wird eingefügt (TextToDisplay = Anzeigename)
With ActiveSheet
ActiveSheet.Cells(last, 20).Select
.Hyperlinks.Add Anchor:=Selection, Address:="\\cadsrv-1\CAM\Arbeitsvorrat\" & TextBox_Materialnummer, _
ScreenTip:="Link", _
TextToDisplay:="Link"
End With
'Fenster nach Eingabe Automatisch Schließen!
Unload meinFormular