Predmet:Re: Spajanje arhiviranih baza
PreuzmiIzvorni kôd (Visual Basic):Sub Putevi()
Dim Ref As Reference
Dim Temp As String
'---------------------------------------------------------------------------------------
'PUTANJE FAJLOVA KORIÅ TENIH U DATOM PROGRAMU
'NALAZE SE U "tbPutanje"
'AutorZXZ
'---------------------------------------------------------------------------------------
Open Db_Putanja & "\_putevi.txt" For Output Shared As #1
For Each Ref In References
If Ref.IsBroken = False Then
Temp = Ref.Name & vbTab & Ref.FullPath & vbTab & Ref.Major & "." & Ref.Minor
Print #1, Temp
End If
Next Ref
Close #1
End Sub
Kopiraj ovu proceduru u tvoju app. pa je pokreni.
Rezultat je u txt file _Putevi pa mi ga kopiraj ilči dostavi.
Vjerovatno je u vb6 modulu bug.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.