Want to find a file which starts with... and end with......

Question

0.00/5 (No votes)

See more:

Hi Everyone,

I am doing a project in Windows CE using VB.net. I want to select a file from Mobile device which STARTS with QPOI and ENDS with .CSV

For this i am trying to write this below mentioned code, but it seems to be incorrect.

chcksite = "QPOI" & * & ".CSV"
If File.Exists("\Application\" & chcksite) Then

Can anyone help me.
Thanks in advance.

Posted 28-Mar-11 1:42am

Saumyavemula

Updated 28-Mar-11 1:48am

Tarun.K.S

v2

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Prerak Patel · Accepted Answer · 2011-03-28T01:56:00

Solution 1

Use GetFiles

VB

Dim di As New DirectoryInfo("c:\") 'or whatever
di.GetFiles("QPOI*.CSV", SearchOption.AllDirectories) 'or SearchOption.TopDirectoryOnly, if you don't want nested search

Posted 28-Mar-11 1:56am

Prerak Patel

v2

Comments

Pravin Patil, Mumbai 28-Mar-11 8:17am

Good answer....

Аslam Iqbal 28-Mar-11 9:40am

very nice. my 5

Saumyavemula 29-Mar-11 1:29am

Hi,

I want to find QPOI*.CSV file in mobile device i.e path("\Application\") not in system.

Prerak Patel 29-Mar-11 1:34am

Then place your path instead of C:\
What is the problem?!

Saumyavemula 29-Mar-11 5:43am

But SearchOption.AllDirectories is showing an error

Prerak Patel 29-Mar-11 5:45am

What error?

Saumyavemula 29-Mar-11 5:53am

SearchOption is not declared

Prerak Patel 29-Mar-11 5:59am

Then use it in full, System.IO.SearchOption.AllDirectories. or try Imports System.IO
Check if System.IO is referenced.

Saumyavemula 29-Mar-11 6:16am

Using this is also not helpful and yes System.IO is referred

Prerak Patel 29-Mar-11 6:19am

You need to debug it more on your own, or share some code for further help.

Saumyavemula 29-Mar-11 6:30am

chcksite = "QPOI" & Login.ComboBox1.SelectedItem & ".CSV"
If File.Exists("\Application\" & chcksite) Then
Dim fileRead As New System.IO.StreamReader("\Application\" & chcksite)
Try
headerline = fileRead.ReadLine()
Do
'comboitemcde.Text = ""
oneline = fileRead.ReadLine()
If oneline = "" Then
GoTo DisplayMsg
End If
i = InStr(1, oneline, ",", CompareMethod.Binary)
j = InStr(i + 1, oneline, ",", CompareMethod.Binary)
k = InStr(j + 1, oneline, ",", CompareMethod.Binary)
l = InStr(k + 1, oneline, ",", CompareMethod.Binary)
m = InStr(l + 1, oneline, ",", CompareMethod.Binary)
n = InStr(m + 1, oneline, ",", CompareMethod.Binary)
o = InStr(n + 1, oneline, ",", CompareMethod.Binary)
p = InStr(o + 1, oneline, ",", CompareMethod.Binary)
q = InStr(p + 1, oneline, ",", CompareMethod.Binary)
r = InStr(q + 1, oneline, ",", CompareMethod.Binary)
ponum = Mid(oneline, 1, i - 1)
itemcde = Mid(oneline, m + 1, (n - 1) - m)
txtpono.Text = ponum
itmdesc = Mid(oneline, p + 1, (q - 1) - p)
sitecode = Mid(oneline, i + 1, (j - 1) - i)
qty = Mid(oneline, q + 1, Len(r - q) - 1)
If ponum = txtpono.Text And itemcde = comboitemcde.Text Then
txtitmdesc.Text = itmdesc
txtqty.Text = qty
txtscanqty.Text = 0
txtbalqty.Text = qty
oneline = ""
End If
Loop Until oneline Is Nothing
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OkOnly)
End Try
DisplayMsg:
fileRead.Close()
Else
MsgBox("Please check '" & chcksite & "' file.", MsgBoxStyle.OkCancel)
End If

Saumyavemula 29-Mar-11 6:31am

Instead of line
chcksite = "QPOI" & Login.ComboBox1.SelectedItem & ".CSV"
i want to select a file starting with QPOI and ending with .CSV

Prerak Patel 29-Mar-11 6:33am

I just wanted to see how you implemented the solution, not all the code which has nothing to do with solution.

Saumyavemula 29-Mar-11 6:38am

i am trying to write this but its showing an error without completing my sentence

Dim di As New DirectoryInfo("\Application\")
di.GetFiles("QPOI*.CSV", System.IO.)

Prerak Patel 29-Mar-11 6:51am

Then it should give error on New DirectoryInfo as well.

Prerak Patel 29-Mar-11 6:55am

Did you use Imports System.IO on top?

Saumyavemula 29-Mar-11 8:25am

Yes i used Imports System.IO

Prerak Patel 29-Mar-11 8:35am

Forget it. It is optional parameter. If there is no nested directories, use di.GetFiles("QPOI*.CSV")

Saumyavemula 7-Apr-11 7:43am

I want to use files starting with "QPOI" and ending with ".CSV", there will be many files not only 1 file.
I tried using System.IO, but in vain.

Prerak Patel 7-Apr-11 7:47am

I know that. I saw you the way. If you can't get it working, get help of others around you. Trust me, it is not that hard.