| ■No87100 (がむんだ さん) に返信
> それでVBを使って、ファイルを生成後に自動で
> ウインドウを更新したいのですが
> どのようにすれば良いですか？
これでどうでしょう。
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For Each exp In GetObject("new:9BA05972-F6A8-11CF-A442-00A0C90A8F39")
If CStr(exp.FullName).ToLower() Like "*\explorer.exe" Then
If MsgBox("更新しますか?" & vbCrLf & exp.LocationName, vbYesNo Or vbQuestion) = vbYes Then
exp.Refresh2(RefreshConstants.Normal)
End If
End If
Next
End Sub
Enum RefreshConstants As Short
Normal = 0
IfExpired = 1
Completely = 3
End Enum |