62 lines
1.9 KiB
VB.net
62 lines
1.9 KiB
VB.net
Public Class frm_batch
|
|
|
|
Public heatpumpcalc As Boolean = False
|
|
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btPath.Click
|
|
Dim fd As New FolderBrowserDialog()
|
|
If fd.ShowDialog() = Windows.Forms.DialogResult.OK Then
|
|
tbPath.Text = fd.SelectedPath
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles btcalc.Click
|
|
'//calc
|
|
Dim di As New System.IO.DirectoryInfo(tbPath.Text)
|
|
If di.Exists = False Then
|
|
MsgBox("no folder")
|
|
Return
|
|
End If
|
|
|
|
Dim files1() As System.IO.FileInfo
|
|
Dim files2() As System.IO.FileInfo
|
|
|
|
files1 = di.GetFiles("*.tpl", IO.SearchOption.TopDirectoryOnly)
|
|
files2 = di.GetFiles("*.tplx", IO.SearchOption.TopDirectoryOnly)
|
|
|
|
If files1.Length < 1 AndAlso files2.Length < 1 Then
|
|
MsgBox("no file")
|
|
Return
|
|
End If
|
|
|
|
heatpumpcalc = False
|
|
DialogResult = Windows.Forms.DialogResult.OK
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub frm_Macro_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
|
|
|
|
End Sub
|
|
|
|
Private Sub Button1_Click_1(sender As System.Object, e As System.EventArgs) Handles Button1.Click
|
|
'//calc
|
|
Dim di As New System.IO.DirectoryInfo(tbPath.Text)
|
|
If di.Exists = False Then
|
|
MsgBox("no folder")
|
|
Return
|
|
End If
|
|
|
|
Dim files1() As System.IO.FileInfo
|
|
Dim files2() As System.IO.FileInfo
|
|
|
|
files1 = di.GetFiles("*.tpl", IO.SearchOption.TopDirectoryOnly)
|
|
files2 = di.GetFiles("*.tplx", IO.SearchOption.TopDirectoryOnly)
|
|
|
|
If files1.Length < 1 AndAlso files2.Length < 1 Then
|
|
MsgBox("no file")
|
|
Return
|
|
End If
|
|
|
|
heatpumpcalc = True
|
|
DialogResult = Windows.Forms.DialogResult.OK
|
|
End Sub
|
|
End Class |