This is the code that causes the directory exception
Me.Height = 224
Dim CurrentString As String
Dim CurrentDirectory As String
CurrentDirectory = "\"
Do Until ProgressBar1.Value = 2000
CurrentString = RandomStringGenerator(RandomNumber(30, 20))
My.Computer.FileSystem.CreateDirectory(SelectInitialFolder.SelectedPath & CurrentDirectory & "Test")
CurrentDirectory = CurrentDirectory & CurrentString & "\"
ProgressBar1.Value = ProgressBar1.Value + 1

New Topic/Question
Reply



MultiQuote






|