If File Exists then ......

[MadCrazyNewbie]

He Group,

I would like to be able to Modify the follwoing code:

Private Sub btnCentrexLinesReports_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles btnCentrexLinesReports.Click
rptForm.Text = "Excellence.Net - Centrex Lines Cab Report"
rptForm.CRVReportPrint.ReportSource = New CentrexLinesCabReport()
rptForm.CRVReportPrint.RefreshReport()
rptForm.ShowDialog()
End Sub

So that, If \\Data01\Ambercat Database\Excellence.Net\Network.txt exists it
runs and if it dosn`t exist it pops up a Message box saying Sorry You are
working offline, and reports carn`t be run.

Anybody suggest the best way to do this?

Cheers
MCN

 

[Guest]

Try this:
Dim FILE_NAME As String = "C:\LogFile.txt"
If Not File.Exists(FILE_NAME) Then
Exit Sub
Else

B

 

[MadCrazyNewbie]

Cheers Brian,

That worked a treat

Cheers
MCN

Try this:
Dim FILE_NAME As String = "C:\LogFile.txt"
If Not File.Exists(FILE_NAME) Then
Exit Sub
Else

B