Hej!

Det är så att jag har gjort en liten VB-snutt som ersätter alla komma med punkt i en textfil.
Sen är tanken att jag ska köra snutten från en Bat-fil i dos. Allting var frid och fröjd tills
jag upptäckte att Bat-filen rullade vidare trots att VB-snutten inte var klar. Förmodligen
triggar bara Bat-filen VB-snutten och bryr sig inte om ifall om den är klar eller inte.

Hur gör man för att Dos-prompten ska frysa medan man kör VB-snutten?


Option Explicit

Private Sub Timer1_Timer()
Dim fso As New FileSystemObject
Dim strSokvag1 As String
Dim strSokvag2 As String
Dim File1 As File
Dim File2 As File
Dim tStream1 As TextStream
Dim tStream2 As TextStream
Dim i As Long

FileBox.Path = CurDir
FileBox.Pattern = "*.skv"
For i = 0 To FileBox.ListCount - 1
FileBox.ListIndex = i
strSokvag1 = FileBox.Path & "\" & FileBox.FileName
strSokvag2 = Replace(FileBox.Path & "\" & FileBox.FileName, ".skv", ".csv")
fso.CreateTextFile strSokvag2, True
Set File1 = fso.GetFile(strSokvag1)
Set File2 = fso.GetFile(strSokvag2)
Set tStream1 = File1.OpenAsTextStream(ForReading)
Set tStream2 = File2.OpenAsTextStream(ForWriting)
tStream2.Write Replace(tStream1.ReadAll, Chr(44), Chr(46))
DoEvents
Next i
If i > 0 Then tStream1.Close: tStream2.Close
End
End Sub

[win]+[r]
cmd.exe[enter]
start /?[enter]

Instruktioner på hur du kan göra ;)

Detta tackar jag ödmjukast för!

Lösningar blev C:\Start /WAIT Skv2Csv.exe