option explicit
private sub command1_click()
text1 = trim(text1): if text1 = then msgbox url을 입력하세요.: exit sub
inet1.execute text1.text, get
do while inet1.stillexecuting: doevents: loop
dim idsize as long, tdl as long
dim tbf() as byte
idsize = clng(inet1.getheader(content-length))
if idsize = 0 then msgbox 적절치 않은 것을 입력하셨어요.: exit sub
me.caption = wait...: me.enabled = false
open app.path & \ & right(text1, len(text1) - instrrev(text1, /)) for binary as #1
tbf() = inet1.getchunk(idsize, icbytearray)
put #1, , tbf
close #1
me.caption = complete!: me.enabled = true
end sub-------------------수다님꺼소스인데여
이렇게 대잇구요
inet , text1,command1 이렇게 잇습니다.
text1 에 링크를 주고 코멘드 버튼을 눌를시 project.exe 가 설치된 경로에 지정한 링크의 파일이 다운로드 되는데요
이것을 경로를 직접적으로 지정해줄수는 없나요?
저는 c: 에다가 해볼려합니다.