http://q.hatena.ne.jp/1144389973関連の質問なのですが、
ARCServeのバックアップレポートをtxtファイルで はきだせることは
メーカに確認できました。
このtxtファイルをARCServeがはいっているマシンの共有フォルダに
入れて同一セグメントのWindowsXP端末より、VBSでtxtファイルの
末行のみの文字列を 取得してMsgBoxでWindowsXP端末に表示させたい
と考えています。このVBSをお願いできないでしょうか。
よろしくお願いします。
No.1
124
20
1000pt
こちらでいかがでしょうか？
305
278
Option Explicit
Const FILENAME = "C:\ARCServeのバックアップレポートのtxtファイル.txt" 'ここを指定してください
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Dim file
Set file = fso.OpenTextFile( FILENAME, ForReading )
Dim strALL
strALL = file.ReadAll
file.Close
Dim aryLines
aryLines = Split( strALL, vbCrLf )
Dim message, i
For i = UBound(aryLines) To 0 Step -1
message = Trim(aryLines(i))
If Len(message) > 0 Then
Exit For
End If
Next
MsgBox message
Set file = Nothing
Set fso = Nothing
No.1
12420
ここでベストアンサー
1000pt
こちらでいかがでしょうか？
Option Explicit
Const FILENAME = "C:\ARCServeのバックアップレポートのtxtファイル.txt" 'ここを指定してください
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Dim file
Set file = fso.OpenTextFile( FILENAME, ForReading )
Dim strALL
strALL = file.ReadAll
file.Close
Dim aryLines
aryLines = Split( strALL, vbCrLf )
Dim message, i
For i = UBound(aryLines) To 0 Step -1
message = Trim(aryLines(i))
If Len(message) > 0 Then
Exit For
End If
Next
MsgBox message
Set file = Nothing
Set fso = Nothing
さっそくありがとうございます。m(_ _)m あとでためしてみます。
確認できました。そこで 追加要望がでてきましたので あとで
再度質問に出します。ありがとうございました。
No.2
34312
10pt
Option Explicit
Const ForReading = 1
Call Main()
Sub Main()
' 入力ファイル名
Dim strInFile
strInFile = "ファイル名.txt"
Dim inFile
Set inFile = fso.OpenTextFile( strInFile, ForReading )
' ファイルの内容を変数にすべて読み込み
Dim strContents
strContents = inFile.ReadAll
inFile.Close
' ファイルの内容を配列に変換
Dim arrLines
arrLines = Split( strContents, vbCrLf )
'最終行をMsg表示
MsgBox arrLines(UBound(arrLines))
End Sub
2
1
さっそくありがとうございます。m(_ _)m あとでためしてみます。
確認できました。そこで 追加要望がでてきましたので あとで
再度質問に出します。ありがとうございました。