Try changing it to Dim DirectorySkins As New DirectoryInfo(Application.StartupPath & "\Skins")
. Is this what you're trying to achieve?
Dim DirectorySkins As New DirectoryInfo(Application.StartupPath & "\Skins")
Try
For Each DirInfo As DirectoryInfo In DirectorySkins.GetDirectories()
Next
Catch ex As Exception
ToolsError.ListBox1.Items.Add(ex.Message)
End Try