Checke om der ligger .bat fil i mappe ?

If File.Exists("C:\foobar.bat") Then
    Process.Start("C:\foobar.bat")
End If

File er i System.IO

Process er i System.Diagnostics

Og det her var selve koden. Adgang og andre sikkerheds aspekter må du spørge
mere ASP.NET kyndige end mig om.

Ok det ser rimiligt simpelt ud jeg har dog lige glemt en enkelt vigtig ting (sorry) Det skal helst være sådan at den kan tjekke på hvilken som helst .bat fil uanset navn altså noget i stil med :

If File.Exists("C:\*.bat") Then
    Process.Start("C:\*.bat")
End If

Og ikke nok med det hvis der ligger 3 filer f.eks tester.bat, husk.bat og choose.bat skal den køre den fil der kom først er dette muligt ?

/Websam

Endnu mere ups den fil der er blevet kørt skal slettes efter endt kørelse :o)

Bare for lige at gøre det mere indviklet :o)

/Websam

File.Delete("foobar.bat")

Dim bats As String() = Directory.GetFiles("c:\*.bat")
Process.Start(bats(0))
File.Delete(bats(0))

Jeg har lige testet dette :

File.Exists("C:\foobar.bat")

Og der er ikke noget der heder jeg får denne fejl når jeg kompiler :

'Exists' is not a member of 'System.IO.TextWriter'.

Er der noget andet jeg mangler ?

/Websam

Ah lille finess.

.NET Framework indeholder en klasse ved navn File, men du har en variabel der hedder File.

Jeg foreslår at du omdøber din variabel til MyFile eller sådan noget.

Alternativt kan du bruge:

System.IO.File.Exists("C:\foobar.bat")

men det er da tude grimt.

Ok så langt så godt skal det så ligne noget i denne stil :

If File.Exists("C:\*.bat") Then
    Dim bats As String() = Directory.GetFiles("c:\*.bat")
    Process.Start("C:\*.bat")
    File.Delete("C:\*.bat")
End If

Eller tabte jeg den igen ?

/Websam

Nej

Dim bats As String() = Directory.GetFiles("c:\*.bat")
If bats.Length > 0 Then
  Process.Start(bats(0))
  File.Delete(bats(0))
End If

Shit det er sent jeg mente :

If File.Exists("C:\*.bat") Then
    Dim bats As String() = Directory.GetFiles("c:\*.bat")
    Process.Start(bats(0))
    File.Delete(bats(0))
End If

/Websam

ok jeg tester lige :o)

Hmmmm.....jeg får ikke nogle fejl ved kompiling og heller ikke ved opstart af servicen, men den exekvere heller ikke .bat filerne i mappen !?!

Nogen ideer til hvad der kan være galt ?

/Websam

Formentligt noget security et eller andet.

Jeg har sat account til LocalSystem med dette :

Me.ServiceProcessInstaller1.Account = ServiceProcess.ServiceAccount.LocalSystem

Og da jeg godt kan få den til at køre uden det nye må det jo være det nye der driller ?!?

/Websam

Jeg ved ikke hvor meget du selv har arbejdet med services men kan der mangle noget i denne sub jeg ikke har med :

Private Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
    '--- Checker om der er en fil i roden C:\
    Dim bats As String() = Directory.GetFiles("c:\*.bat")
    If bats.Length > 0 Then
        Process.Start(bats(0))
        File.Delete(bats(0))
    End If
    '---
    Dim MyFile As TextWriter = New StreamWriter("C:\output.txt", True)
    MyFile.WriteLine("Test Kørsel foregik - " & Now)
    MyFile.Close()
End Sub

Dette sker hver 5. sekund og virker fint uden dette :

'--- Checker om der er en fil i roden C:\
Dim bats As String() = Directory.GetFiles("c:\*.bat")
If bats.Length > 0 Then
  Process.Start(bats(0))
  File.Delete(bats(0))
End If

/Websam

Prøv at erstat:

Process.Start(bats(0))

med:

Process.Start("cmd", "/c " & bats(0))

Jeg prøver at rode lidt vidre med men jeg fik svar på det meste her og hvis det har noget med permission at gøre opretter jeg et nyt spm :o)

Tak for hjælpen :o)