[ aikidomaster @ 02.06.2009. 08:10 ] @
Ako na jednoj formi imam
CommandButton dva komada + FileListBox + TextBox
a hocu da prilikom klika na CommandButton1 (C:\folder\1\) ili na CommandButton2 (C:\folder\2\) da mi on otvori u FileListBox-u taj folder i sve txt (tu ce da stoje samo txt fajlovi) i kada izaberem jedan od tih txt filova da ga on otvori u TextBox !???



[ djpero.84 @ 02.06.2009. 08:42 ] @
U event Command1_Click() stavi:

Code:
 File1.path = "C:\folder\1"
File1.refresh


U event Command2_Click() stavi:

Code:
 File2.path = "C:\folder\2"
File2.refresh


U event File1_Click() :
Code:
Dim tekst1 As String
Open File1.Path & "\" & File1.FileName For Input As #1
Input #1, tekst1
Text1.Text = tekst1
Close #1



U event File2_Click() :
Code:
Dim tekst2 As String
Open File2.Path & "\" & File2.FileName For Input As #1
Input #1, tekst2
Text2.Text = tekst2
Close #1

[ aikidomaster @ 02.06.2009. 09:01 ] @
ovo je OK ali kada izaberem iz FileListBox-a jedan txt file on mi otvori samo jedan red texta i izbaci
Run-time error '424':
Object required
?



Bio mi je Multiline iskljucen ali i kada sam stavio na True opet isto!
[ djpero.84 @ 02.06.2009. 09:32 ] @
Trebalo bi sve raditi ok. Okaci formu da vidimo o cemu se radi.
[ aikidomaster @ 02.06.2009. 13:54 ] @
Evo ga !


Mada sada kada sam izbrisao :
U event File2_Click() :
Code:
Dim tekst2 As String
Open File2.Path & "\" & File2.FileName For Input As #1
Input #1, tekst2
Text2.Text = tekst2
Close #1"

radio delimicno OK jer kada kliknem na txt file dobijem samo prvi red a meni je potrebno da izgleda ovako :


Naziv Artikla =
Proizvodjacki Barkod =
Proizvodjacki Barkod II =
Proizvodjacki Barkod III =
Komerijalni Barkod =
Transportni Barkod =
Mera =
Marke =
Artikal Na Merenje =
Poreska Stopa =
========= Cene ========
Fabricka Cena =
Rabat = %
Preporucena Maloprodajna cena =
========= Marza ========
Marza za VeleProdaju = %
Marza za Maloprodaju = %
Marza za SuperMarket = %
========= Pakovanje ========
Proizvodjacko Pakovanje =
Komercijalno Pakovanje =
Transportno Pakovanje =
Zavrsno Pakovanje =
========= Ostalo ========
Proizvodjac =
Dobavljac =
Grupa Artikala =
Isporuka =
Naznaciti da li je za :
Napomena :




[Ovu poruku je menjao aikidomaster dana 02.06.2009. u 15:07 GMT+1]
[ djpero.84 @ 02.06.2009. 14:51 ] @
Sorry, do mene :)

Hrljuks :))
[ aikidomaster @ 03.06.2009. 06:26 ] @
Poslednji put obecavam !!!
E sada je to to ali me muci sledece
Ako izaberem jedan txt file pa probam drugi, ne moze !!!

i imam takodje jos nesto da pitam:
kako da na onaj commandbutton6 stavim komandu da kada kliknem na njega da on taj txt file (iz FileListBox) sto je selektovan da ga skloni na neko drugo mesto tipa (c:\copy) i da uradi refresh filelistbox (kako taj file sto je sklonjen ne bi bio vidljiv na listi)???



[Ovu poruku je menjao aikidomaster dana 03.06.2009. u 07:49 GMT+1]
[ djpero.84 @ 04.06.2009. 07:28 ] @
Evo ovako:

Samo moras vec da imas folder "C:\copy" ili taj u koji zelis da kopiras.
[ aikidomaster @ 04.06.2009. 10:33 ] @
SVE JE OK
ali...
da li moze da se zameni komanda :
FileCopy File1.Path & "\" & File1.FileNa...

sa
recimo
FileMove File1.Path & "\" & File1.FileNa...
[ djpero.84 @ 04.06.2009. 17:31 ] @
ne moze

Uradi:
Code:
Filecopy File1.Path & "\" & File1.FileName
Kill File1.Path & "\" & File1.FileName
[ aikidomaster @ 04.06.2009. 19:15 ] @
e taj rad !!!
To mi je trebalo !!!
Hvala svima na ulozenom trudu ...
Oduzicu vam se cim budem mogao