Mart van Hulten
New Member
- Joined
- Oct 9, 2018
- Messages
- 11
Why doesn't the following code always works?
Dim path As String
Dim i As Integer
path = ThisWorkbook.FullName
path = Left(path, Len(path) - (1 + Len(ThisWorkbook.Name))) & "\toetsen"
i = 0
Dim FileName As String
'Does FileName have a maximum length? <---------------------------
FileName = Dir(path & "*.docx")
path has a value like: https://connect.fontys.nl/wis/Documents/Toetsdatabase/toetsen/
Dim path As String
Dim i As Integer
path = ThisWorkbook.FullName
path = Left(path, Len(path) - (1 + Len(ThisWorkbook.Name))) & "\toetsen"
i = 0
Dim FileName As String
'Does FileName have a maximum length? <---------------------------
FileName = Dir(path & "*.docx")
path has a value like: https://connect.fontys.nl/wis/Documents/Toetsdatabase/toetsen/