















I'm a neat freak.
Dim CA_Direct As String
If My.Computer.FileSystem.FileExists("C:\CADirectory.txt") = False Then
FolderBrowserDialog1.ShowDialog()
My.Computer.FileSystem.WriteAllText("C:\CADirectory.txt", FolderBrowserDialog1.SelectedPath, False)
CA_Direct = FolderBrowserDialog1.SelectedPath
Else
CA_Direct = My.Computer.FileSystem.ReadAllText("C:\CADirectory.txt")
End If
Kill(CA_Direct & "\*.txt")
