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
Potpis