Click here to Skip to main content
15,891,607 members
Please Sign up or sign in to vote.
0.00/5 (No votes)
See more:
VB
If daytxt.Text <> "0" And viewtxt.Text <> "0" Then
    Dim SaveFileDialog1 As New FolderBrowserDialog()


    If SaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.Cancel Then
        Return
    End If

    tempfile1 = SaveFileDialog1.SelectedPath

    '------trial data


    Dim stu As New tdata()

    'Information to save
    stu.viewtext = viewtxt.Text
    stu.daytext = daytxt.Text


    'Serialize student object to an XML file, via the use of StreamWriter
    Dim objStreamWriter As New StreamWriter(tempfile1 + "\appsinfo.xml")

    Dim xsSerialize As New XmlSerializer(stu.GetType) 'Determine what object types are present

    xsSerialize.Serialize(objStreamWriter, stu) 'Save

    objStreamWriter.Close() 'Close File



    '  ----save cust exe


    Dim DestPath As String = tempfile1
    Dim file = New FileInfo(Application.StartupPath + "/photolocker2.exe")
    file.CopyTo(Path.Combine(DestPath, file.Name), True)


    '--- images create in folder

    fpath = tempfile1 + "/db"

    System.IO.Directory.CreateDirectory(fpath)

    tempfile = fpath

    For i = 0 To FlowLayoutPanel1.Controls.Count - 1
       ----Need Something here--
                Dim hell = FlowLayoutPanel1.Controls.Item(i).Name
        convertimg(hell)

    Next


            End If
Posted
v2

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900