개정판 62f4d5df
progress update
| DTI_PID/SPPIDConverter/Main.vb | ||
|---|---|---|
| 702 | 702 |
Dim filename As String |
| 703 | 703 |
On Error GoTo wwq |
| 704 | 704 |
' Directory.GetFiles(path).Length. |
| 705 |
Me.ProgressBar_Status.Maximum = Directory.GetFiles(path).Length + 1 |
|
| 706 |
Me.ProgressBar_Status.Value = 0 |
|
| 705 |
'Me.ProgressBar_Status.Maximum = Directory.GetFiles(path).Length + 1
|
|
| 706 |
'Me.ProgressBar_Status.Value = 0
|
|
| 707 | 707 |
For Each filename In Directory.GetFiles(path) |
| 708 | 708 |
On Error GoTo wwq |
| 709 | 709 |
Dim jj_ = filename.LastIndexOf("\")
|
| 710 | 710 |
Dim jj1_ = filename.Length - jj_ |
| 711 | 711 |
Dim fil = filename.Substring((jj_ + 1), (jj1_ - 1)) |
| 712 | 712 |
If fil.Contains(".xml") Then
|
| 713 |
Me.ProgressBar_Status.Value = Me.ProgressBar_Status.Value + 1 |
|
| 713 |
' Me.ProgressBar_Status.Value = Me.ProgressBar_Status.Value + 1
|
|
| 714 | 714 |
' ListView.Items.Add(fil, 13) ''old 13 28 |
| 715 | 715 |
lvItem = ListView_File.Items.Add(fil, 13) '2 5 7 work, 0 alos |
| 716 | 716 |
Dim infoReader As System.IO.FileInfo |
내보내기 Unified diff