Kod:
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
Dim Dsy As System.IO.StreamWriter
Dsy = My.Computer.FileSystem.OpenTextFileWriter("pa.xml", True)
Dsy.WriteLine(<Buildfile version="1.1">
<Action type="extract" archivePath= & Textbox1.Text & outputPath="Aktar" extractAll="YES" createXML="YES" xmlPath="pk.xml"/>
</Buildfile>)
Dsy.Close()
End Sub
Bkz: & Textbox1.Text &