Question

我正在制作一个Skype工具，我正在自动创建配置文件，或者至少我认为我在做什么。问题只是由于某些原因导致FileNotFoundException被触发，因为我的一些代码引用了尚不存在的文件。那么在激活代码之前对异常进行可视化基本检查，还是我做错了什么？这是我的文件创建代码：

If My.Computer.FileSystem.DirectoryExists("C:\BaconSkypeTool") Then

Else
  My.Computer.FileSystem.CreateDirectory("C:\BaconSkypeTool")
End If

If My.Computer.FileSystem.FileExists(Path) Then

Else
  Dim fs As FileStream = File.Create(Path)
  Dim line1 As Byte() = New UTF8Encoding(True).GetBytes("This is the configuration file for BaconSkypeTool" & vbCrLf & "Please do not change anything in here if you don't know what you're doing." & vbCrLf & vbCrLf & "Values below" & vbCrLf & "ChangeStatusInCall = True" & vbCrLf & "Status = Online" & vbCrLf & "Enable .cancel command = True")
  fs.Write(line1, 0, line1.Length)
  fs.Close()
End If

这是触发异常的代码：

skype.CurrentUserStatus = SKYPE4COMLib.TOnlineStatus.olsOnline
Dim text = My.Computer.FileSystem.ReadAllText("C:\BaconSkypeTool\config.cfg")
Dim textAfterStatus As String = Nothing
Dim indexOfStatus = text.IndexOf("Status = ")
Dim text1 As String = Nothing
If indexOfStatus >= 0 Then
  textAfterStatus = text.Substring(indexOfStatus + "Status = ".Length)
  text1 = textAfterStatus.Split("Blacklist").First().Trim()
End If

文件创建位于我的文件的顶部，因此应该是第一个被解雇的东西，但也许这只是我想的。

文件未创建 - Visual Basic

0 个答案: