Hello:
Having another insane moment today, where the last 5 minutes of the work takes all day.
_filedata is: "C:\Sackett-Waconia\Migration Workgroup\Workgroup\CONVEYOR\BT220\CURVE SECTION\Details\E7153765.slddrw | SHEET 10 GA, AISI 304, TOP SHEET"
FilePath is: "C:\Sackett-Waconia\Migration"
FilePath should be: "C:\Sackett-Waconia\Migration Workgroup\Workgroup\CONVEYOR\BT220\CURVE SECTION\Details\E7153765.slddrw"
My code is here:
Thank you.
Having another insane moment today, where the last 5 minutes of the work takes all day.
_filedata is: "C:\Sackett-Waconia\Migration Workgroup\Workgroup\CONVEYOR\BT220\CURVE SECTION\Details\E7153765.slddrw | SHEET 10 GA, AISI 304, TOP SHEET"
FilePath is: "C:\Sackett-Waconia\Migration"
FilePath should be: "C:\Sackett-Waconia\Migration Workgroup\Workgroup\CONVEYOR\BT220\CURVE SECTION\Details\E7153765.slddrw"
My code is here:
Code:
Private Function GetPathFromFileData(ByVal _filedata As String) As String
Debug.WriteLine(_filedata)
' C:\Sackett-Waconia\Migration Workgroup\Workgroup\CONVEYOR\BT220\CURVE SECTION\Details\E7153765.slddrw | SHEET 10 GA, AISI 304, TOP SHEET
Dim farr() As String
farr = _filedata.Split(" | ")
Dim FilePath As String = farr(0)
Debug.WriteLine(FilePath)
' C:\Sackett-Waconia\Migration
Return FilePath
End FunctionThank you.