Visual Basic でスクリーンショット

質問

学生で、visual basic を勉強しているものです
Button1をクリックするとスクリーンショットを１秒ごとに撮り、
"c:\iMonitoring"に保存するというプログラムを書いています
（Button2をクリックすると止まる）

写真の名前を撮った時刻にしたいのですがエラーが出てうまくいきません
どうしていいか分からばいので教えてください

(コードです)
*********************************************************************************
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = False
System.IO.Directory.CreateDirectory("C:\iMonitoring")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim x As String = Now().ToString()
Dim a As String = "C:\iMonitoring\"
Dim b As String = ".bmp"
Dim y As String = (a & x & b)
'Imports System.Drawing
'Imports System.Windows.Forms

'Bitmapの作成
Dim bmp As New Bitmap(Screen.PrimaryScreen.Bounds.Width, _
Screen.PrimaryScreen.Bounds.Height)
'Graphicsの作成
Dim g As Graphics = Graphics.FromImage(bmp)
'画面全体をコピーする
g.CopyFromScreen(New Point(0, 0), New Point(0, 0), bmp.Size)
'解放
g.Dispose()
'保存
bmp.Save(y)
End Sub
End Class

回答No.2

Wr5 · ベストアンサー

VBはよくわかりませんけど…

>Dim x As String = Now().ToString()
でxに「ファイル名、フォルダ名に使えない文字」とか入っていませんか？
# '/'や':'はファイル名やフォルダ名には使えませんが…。

お礼

ありがとうございます
その通りでした！！

Now().ToString("HHmmss")

このようにしたら解決しました＾＾

回答No.1

田中 裕之（@bybalsendercase）

こんにちは

Dim y As String = (a & x & b)→ Dim y As String = (a & "x" & b)のようにするとどうでしょうか？