הם הביאו לך שם את הקוד שצריך לרשום אחד על אחד
וכנס אני ירשום לך כאן את הקוד
דבר ראשון תוסיף תיבת טקסט וכפתור פקודה
אחרי זה תוסיף בהגדרות שם את הMicrosoft Scripting Runtime אם אתה לא יודע מה זה משמע לא קראת את המאמרעכשיו
Private Sub Command1_Click() Text1.Text = "c:\" & Text1.Text & ".text" Dim fso As New FileSystemObject Dim fsoTextStream As TextStream Set fsoTextStream = fso.CreateTextFile(Text1.Text, True) fsoTextStream.Close Set fso = Nothing Set fsoTextStream = NothingEnd Sub
|
בתיבת טקסט אתה רק רושם את השם של הקובץ לדוגמא boynet ייצור לך קובץ בכונן c עם השם boynet.txt
תהנה ובהצלחה בהמשך