[es] - upload file from computer to ftp

pr0gramer
nezaposlen

Član broj: 163931
Poruke: 66
*.adsl.net.t-com.hr.

Profil

^{22.02.2008. u 20:00 - pre 208 meseci}

Trebam kod ili neku ideju kako napraviti sljedeće

Kad pokrenem aplikaciju da mi se MAPA koja se nalazi na c:/games/CoD prebaci na ftp

Hvala

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.eunet.yu.

Sajt: www.vasictech.net

+1 Profil

Re: upload file from computer to ftp

^{22.02.2008. u 20:23 - pre 208 meseci}

Pa ako hoces da ti se mapa prebaci na ftp,ubacis kôd za upload fajla na ftp u Form_Load......Mozda nisam dobro shvatio

a vec si dobio jednom odgovor na pitanje kako uploadovati na ftp

http://www.elitesecurity.org/t304999-visual-basic-ftp

p.s. tema treba da se zove "file upload from computer" :)

Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net

+44 Profil

Re: upload file from computer to ftp

^{22.02.2008. u 22:00 - pre 208 meseci}

Citat:

The_End_is_close:p.s. tema treba da se zove "file upload from computer" :)

renamed ;)

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.eunet.yu.

Sajt: www.vasictech.net

+1 Profil

Re: upload file from computer to ftp

^{22.02.2008. u 22:05 - pre 208 meseci}

lol :D

ja samo hteo njemu da nagovestim ;)

Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
91.148.115.*

+7 Profil

Re: upload file from computer to ftp

^{25.02.2008. u 14:00 - pre 208 meseci}

Sad verovatno neznas da procitas fajl sa diska

Code:

Private Sub Form_Initialize() '
Dim FileData As String ' String za upisivanje podataka iz fajla
FileData = myReadFile("C:\slike\slika.jpg")
If Len(FileData) > 0 Then
Debug.Print FileData
MsgBox "Procitali smo podatke"
Else
MsgBox "Nismo procitali podatke ili fajl ne postoji"
End If
End Sub

'Funkcija za citanje fajla
Public Function myReadFile(File As String) As String ' Citamo fajl i upisujemo podatke u String
Dim fso, fs
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(File) Then GoTo Err
Set fs = fso.OpenTextFile(File, 1)
myReadFile = fs.ReadAll
fs.Close
Exit Function
'Ako nema fajla ili se pojavi greska u funkciji vracamo prazan String
Err:
myReadFile = ""
End Function

HomePage http://www.eurora3d.com

Odgovor na temu