人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

(解決時には1名様に500ptお支払いします)
http://q.hatena.ne.jp/1242871311のつづきなのですが、
無理をすみません。txtファイルがある場合にはMsgBoxで
バックアップに失敗しました と表示し、txtファイルが無い場合
には バックアップに成功しました とMsgBoxで表示させたいの
ですが、このVBSをお願いできますでしょうか。よろしくお願いします。

●質問者: meichi
●カテゴリ:コンピュータ インターネット
✍キーワード:txt VBS すみません バックアップ ファイル
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● fester
●60ポイント ベストアンサー
Option Explicit
Const FILENAME = "C:\Documents and Settings\MACHI\デスクトップ\DimsqlAsNewStringBuilder.txt"
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TITLE = "ARCServeのバックアップ"

Dim fso
Set fso = WScript.CreateObject("Scripting.FileSystemObject") 

If fso.FileExists(FILENAME) = False Then
 MsgBox "バックアップに成功しました", vbInformation, TITLE
 Set fso = Nothing
 WScript.Quit
End If

Dim file
Set file = fso.OpenTextFile( FILENAME, ForReading ) 

Dim strALL
strALL = file.ReadAll 
file.Close 

Set file = Nothing
Set fso = Nothing

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 "バックアップに失敗しました" & vbCrLf & vbCrLf & message, vbCritical, TITLE


こちらでいかがでしょうか

◎質問者からの返答

たびたびありがとうございました。m(_ _)m

確認しました。これでおわります。お言葉に甘えて通常のポイントの

支払でさせていただきます。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ