수다닷컴

안녕하세요. 제가 텍스트 파일을 다운로드 소스을 이용해서 다운되겠금 했는데 이상하게 제대로 저장이 않되네요.
Option Explicit

Private Declare Function URLDownloadToFile Lib urlmon Alias URLDownloadToFileA (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Const ERROR_SUCCESS As Long = 0
Private Const BINDF_GETNEWESTVERSION As Long = &H10
Private Const INTERNET_FLAG_RELOAD As Long = &H80000000

Private Function DownloadFileFromWeb(sSourceUrl As String, sLocalFile As String) As Boolean
DownloadFileFromWeb = URLDownloadToFile(0&, sSourceUrl, sLocalFile, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS
End FunctionPrivate Sub Command1_Click()
DownloadFileFromWeb http://www.fsa.hostingsiteforfree.com/korean.txt, C:\korean.txt
End Subhttp://www.fsa.hostingsiteforfree.com/korean.txt 에는 아래 사진과 같이 저장하여 업로드 하였습니다.하지만 다운로드 소스로 다운을하면 텍스트 문서가 아래 사진과 같이 다운이 됩니다.음 제가 질문드리고 싶은것은 텍스트를 호스팅에서 다운받아서 저장할떄
원본 파일과 다운로드된 파일과 똑같이 저장할수 있는 법이 있으면 알려주셨으면 합니다.
감사합니다 :)

신청하기