Registracija

Opet problem sa extenzijama

Odgovori Nova tema

2 odgovora
3.671 pregleda

Opet problem sa extenzijama 22.01.2009. u 16:00 · pre 216 meseci #1

U ovom kodu
Private Sub Command1_Click
NadjiTekst "d:\racuni\izdati.ok", "tralala"
End Sub
proba sam zamjeniti extenziju ".ok" sa ".*" ali ne radi,jer printer nekad salje fajl sa ekstenzijom ".ok" ako je sve u redu,a usljed greske ekstenziju ".err"
Pokusao sam sa

Private Sub Command1_Click
NadjiTekst "d:\racuni\izdati.*", "tralala"
End Sub

ali ne ide.Hvala puno

Re: Opet problem sa extenzijama 22.01.2009. u 22:18 · pre 216 meseci #2

Probaj ovako:

Code:
If Dir("d:\racuni\izdati.ok") <> "" then
NadjiTekst "d:\racuni\izdati.ok", "tralala"
Else
NadjiTekst "d:\racuni\izdati.err", "tralala"
End if

Potpis

Ozbiljan i odgovoran mladić

Re: Opet problem sa extenzijama 23.01.2009. u 09:31 · pre 216 meseci #3

To je to.
Svaka cast i hvala puno

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme