수다닷컴

제가 소스묻는건 안되는건알지만 내일까지 너무급해서 그러는데 한번만도와주세요 ㅠㅠ제가지금Private Sub c1_Click(Index As Integer)Dim i As Integer
Dim FN_out As Integer
Dim FN As Integer
Dim strTemp As String
Dim Temp As String
If Dir(G:\배성현\가계부프로그램.exe) = Empty Then
FN_out = FreeFile
Open (G:\배성현\가계부프로그램.exe) For Append As FN_out
Close FN_out
Else
Open App.Path & (G:\배성현\가계부프로그램.exe) For Input As FN_out
Do While Not EOF(1)
Line Input #FN_out, Temp
Text1 = Text1 & Temp & vbCrLf
Loop
Close FN_out
End IfEnd Sub여기서 다른분들 비슷한질문보고 해보다보니 뭔가 적혀지긴햇는데요 뭔지도잘모르겟고계속 오류가뜨네요 ㅠㅠOpen App.Path & (G:\배성현\가계부프로그램.exe) For Input As FN_out이부분부터 오류가 ㅠㅠ 제가 지금그 응용프로그램위치가 G:\배성현\가계부프로그램.exe이런데...이 c1커맨더를 눌럿을때 저프로그렘을 실행시키게끔하는건 어떻게하나요?ㅠㅠ부탁드릴게요ㅜㅜ

신청하기