Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Form1
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- If My.Computer.FileSystem.FileExists("F:\Steam\SteamApps\common\Team Fortress 2\tf\cfg\autoexec rec.cfg") Then
- Label2.Text = "Current cfg: play"
- ElseIf My.Computer.FileSystem.FileExists("F:\Steam\SteamApps\common\Team Fortress 2\tf\cfg\autoexec play.cfg") Then
- Label2.Text = "Current cfg: rec"
- Else
- Label2.Text = "Current cfg: none"
- End If
- End Sub
- Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- If My.Computer.FileSystem.FileExists("F:\Steam\SteamApps\common\Team Fortress 2\tf\cfg\autoexec play.cfg") Then
- My.Computer.FileSystem.RenameFile("F:\Steam\SteamApps\common\Team Fortress 2\tf\cfg\autoexec.cfg", "autoexec rec.cfg")
- My.Computer.FileSystem.RenameFile("F:\Steam\SteamApps\common\Team Fortress 2\tf\cfg\autoexec play.cfg", "autoexec.cfg")
- Label2.Text = "Current cfg: play"
- MsgBox("Success! Cfg changed to the play cfg")
- Else
- MsgBox("Cfg already set")
- End If
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- If My.Computer.FileSystem.FileExists("F:\Steam\SteamApps\common\Team Fortress 2\tf\cfg\autoexec rec.cfg") Then
- My.Computer.FileSystem.RenameFile("F:\Steam\SteamApps\common\Team Fortress 2\tf\cfg\autoexec.cfg", "autoexec play.cfg")
- My.Computer.FileSystem.RenameFile("F:\Steam\SteamApps\common\Team Fortress 2\tf\cfg\autoexec rec.cfg", "autoexec.cfg")
- Label2.Text = "Current cfg: rec"
- MsgBox("Success! Cfg changed to the recording cfg")
- Else
- MsgBox("Cfg already set")
- End If
- End Sub
- Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
- End Sub
- Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
- Process.Start("F:\Steam\SteamApps\common\Team Fortress 2\tf\cfg")
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement