विषय: सर्वर पर फ़ाइलें अपलोड करने के लिए विज़ुअल बेसिक एप्लिकेशन बनानामैंने अपने कंप्यूटर से फ़ाइल अपलोड करने के लिए VB6 कोड का उपयोग किया और यह बिना किसी त्रुटि के ठीक से काम कर गया, लेकिन फ़ाइल मेरे स्टोरेज फ़ोल्डर में दिखाई नहीं दे रही है।
मैंने यही कोड इस्तेमाल किया था। :
Dim host_name As String
सक्षम = गलत
माउस पॉइंटर = vbHourglass
txtResults.Text = "कार्यरत"
txtResults.SelStart = Len(txtResults.Text)
डूइवेंट्स
होस्ट_नाम = "ftp.drivehq.com"
यदि LCase$(Left$(host_name, 6)) <> "ftp://" तो host_name = "ftp://" & host_name
inetFTP.URL = होस्ट_नाम
txtLocalFile.Text="D:\TTT.TXT"
txtRemoteFile.Text="TEXT.TXT"
inetFTP.UserName = txtUserName.Text ' मेरा उपयोगकर्ता नाम
inetFTP.Password = txtPassword.Text ' मेरा पासवर्ड
inetFTP.Execute , "Put " & _
txtLocalFile.Text & " " & txtRemoteFile.Text
कोड बिना किसी त्रुटि के काम कर रहा था, लेकिन जब मैंने दोबारा अपने स्टोरेज में फाइल चेक की तो मुझे वह फाइल वहां नहीं मिली।
कृपया, यदि कोई समाधान या VB6 कोड उपलब्ध हो तो उसका उपयोग करें।
धन्यवाद