Evo pokušat ću zadnji put....pa ako uspije uspije ne ne....
U tom mom progiju se odaberu funkcije i onda se u text1.text upiše ime forme... i pritisne command button a on te sve funkcije sklopi u jednu cijelinu... Ali ne komplimira nego stavi te funkcije u .frm (korisnik mora imat instaliran VB da bi to komplirao)... (ali opet tu imam problem.. Kad se otvori ta napravljena forma (samo form1 kako li ju već korisnik imenuje) otvara se kao moduel a ja sam zadao da se spremi sa ekstenzijom .frm znači piše Module1 (form1.frm) ne znm odakle dođe do modula... )
ali sad se vraćam na početno pitanje...
Zaboravio sam reć da korisnik još odabire gdje će se napravit ta forma...
Evo kod:
Code:
GenDir = frmOptions.txtdir.Text
Name = formname.Text
Path = GenDir & formname.Text + ".frm"
FormNamefrm = formname.Text & ".exe"
Open Path For Output As #1
Print #1, "Private Sub Form_Load()"
Print #1, "On error resume next"
Print #1, "Tu"
Print #1, "End Sub"
U progiju ima još koda ali je ovo najbitnije....
Gdje piše "Tu" želim stavit naredbu :
Code:
FileCopy App.Path + "\" + App.EXEName + ".exe", "C:\ES.exe"
Ali ju ne mogu nikako prilagodit Print-u Znači ovijek mi se pojavljuje " ; " i nekad uspijem izbijeći to i pokrenem progi sve napravi i oslika se u napravljenoj formi sav zadani kod osim taj FileCopy
Nadam se da je sad nešto jasnije....
Re: Print #1, ""....