Prikazi cijelu temu 23.07.2013 10:52
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Spajanje arhiviranih baza
PreuzmiIzvorni kôd (Visual Basic):
  1. Sub Putevi()
  2.     Dim Ref As Reference
  3.     Dim Temp As String
  4. '---------------------------------------------------------------------------------------
  5. 'PUTANJE FAJLOVA KORIÅ TENIH U DATOM PROGRAMU
  6. 'NALAZE SE U "tbPutanje"
  7. 'AutorZXZ
  8. '---------------------------------------------------------------------------------------
  9.    
  10.  Open Db_Putanja & "\_putevi.txt" For Output Shared As #1
  11.    
  12.     For Each Ref In References
  13.  
  14.         If Ref.IsBroken = False Then
  15.              Temp = Ref.Name & vbTab & Ref.FullPath & vbTab & Ref.Major & "." & Ref.Minor
  16.              Print #1, Temp
  17.         End If
  18. Next Ref
  19. Close #1
  20. 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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.