수다닷컴

비주얼베이직 메뉴편집기를 이용한 파일 열기 파일 추가 파일저장을 하려는데요 소스가 잘못되었는지 전혀 파일열기가 안되네요...Private Sub 파일열기_Click()Dim 파일번호 As Integer

Dim 파일이름 As String

Dim 파일내용 As String

파일번호 = FreeFile
파일이름 = File1.Path & \ + File1.FileName

Open 파일이름 For Input As #파일번호
Input #파일번호, strTemp

Text1.Text = strTemp
Text2.Text = 파일이름

Close #파일번호
End Sub
Private Sub 파일저장_Click()
Dim 파일번호 As Integer 파일번호 = FreeFile

Open Text2.Text For Output As 파일번호

Write #파일번호, Text1.Text

Close 파일번호
End SubPrivate Sub 파일추가_Click()
Dim 파일번호 As Integer 파일번호 = FreeFile

Open Text2.Text For Append As 파일번호
Write #파일번호, Text1.Text

Close 파일번호End Sub

신청하기