BlueIshDan
☠
- Local time
- Yesterday, 21:33
- Joined
- May 15, 2014
- Messages
- 1,122
sorry that was bugged
Kind of, but where do you think it applies here?
Code:
Public Sub CreateDirectoriesV2(ByVal address As String)
Dim fs As New FileSystemObject
Dim i As Integer: i = 1
Dim str As String
If Not fs.FolderExists(address) Then
Do
i = InStr(i + 1, address, "\")
If i = 0 Then: Exit Do
If Not fs.FolderExists(Mid(address, 1, i)) Then fs.CreateFolder Mid(address, 1, i)
Loop
End If
End Sub
Do you know about the Dir() function as well?
Kind of, but where do you think it applies here?