
open.document.dir = "~/Web.sitemap"
open.document.fileSize
Label1.text = open.document.fileSize

open.document.createTextNode.childNodes = "aaa"


closezdar jak je?!zdar jak je?!zdar jak je?!zdar jak je?!zdar jak je?!

My.Computer.FileSystem.WriteAllText("C:/programko/musil/poznamky.txt", "zdar jak je?!", True)

Microsoft.VisualBasic.FileOpen(1, "C:/programko/musil/poznamky.txt", OpenMode.Input, OpenAccess.Default, OpenShare.Default, 300)
        
        Microsoft.VisualBasic.FileSystem.Write(1, "ahoj snad to jede")
        
        Microsoft.VisualBasic.FileClose(1)
        
        My.Computer.FileSystem.OpenTextFieldParser("C:/programko/musil/poznamky.txt", 20, 50)
        
        
        open.document.dir = "~/poznamky.txt"
document.write ("zdar jak se mas")
close.document

 My.Computer.FileSystem.WriteAllText("C:/programko/musil/poznamky.txt", "zdar jak je?!", True)
 
 Microsoft.VisualBasic.FileWidth(2, 0)
 
 
 ****
 
     Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)

        Label10.Text = ""
        
        Dim stranka As String
        
        stranka = TextBox1.Text
        
        
        Dim vlozka As String = "<siteMapNode url=" + stranka + ".aspx'' Title = ''" + stranka + "''/> </siteMapNode> </siteMap>"
        
        Dim pozice As Integer
        
        Microsoft.VisualBasic.FileOpen(1, "C:/programko/musil/aaa.txt", OpenMode.Binary, OpenAccess.Default, OpenShare.Shared, 300)
        
        pozice = Microsoft.VisualBasic.FileLen("C:/programko/musil/aaa.txt") - 25
        
        Label10.Text = pozice
        
        Microsoft.VisualBasic.FilePut(1, vlozka, pozice, )

        Microsoft.VisualBasic.FileClose(1)
         
               
    End Sub
    
***** zatim vali!!