Looks great bro, a huge improvement from your older release.
Just a few suggestions I have upon viewing your screen shots.
1) To solve your "If your CombatArms is located in the D:\ drive click here."; is a very easy fix. Simply something like this:
Then whenever you use a command that uses the directory use CA_Direct as the path. I.E:
Dim CA_Direct As String
If My.Computer.FileSystem.FileExists("C:\CADirectory.txt") = False Then
My.Computer.FileSystem.WriteAllText("C:\CADirectory.txt", FolderBrowserDialog1.SelectedPath, False)
CA_Direct = FolderBrowserDialog1.SelectedPath
CA_Direct = My.Computer.FileSystem.ReadAllText("C:\CADirectory.txt")
Kill(CA_Direct & "\*.txt")