06-07-2021
08:20 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
06-07-2021
08:20 AM
Hello
I can't see any line where you create the directory. *???*
You can test if directory exist and create otherwise. If creation fails, you can exit your sub
Dim sPath As String = "C:\Gulvsug\" & aOrdreNr & "\"
Dim oDirInfo As System.IO.DirectoryInfo
If Not System.IO.Directory.Exists(sPath) Then
oDirInfo = System.IO.Directory.CreateDirectory(sPath)
If oDirInfo Is Nothing Then
MsgBox("Error creating Directory " & sPath, , "iLogic DXF-Export")
Exit Sub
End If
End If
R. Krieg
RKW Solutions
www.rkw-solutions.com