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
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)