Haegwang/FileManager
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FileManager_Runtime_1704102200_Net4

Browse Source
This commit is contained in:
Chikyun
2019-08-04 20:13:56 +09:00
commit 6b10d3e460
100 changed files with 16893 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

495
DriveInfo/입력폼/Form_Status.Designer.vb generated Normal file
View File

@@ -0,0 +1,495 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form_Status
Inherits System.Windows.Forms.Form
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DefaultFocusIndicatorRenderer1 As FarPoint.Win.Spread.DefaultFocusIndicatorRenderer = New FarPoint.Win.Spread.DefaultFocusIndicatorRenderer()
Dim DefaultScrollBarRenderer1 As FarPoint.Win.Spread.DefaultScrollBarRenderer = New FarPoint.Win.Spread.DefaultScrollBarRenderer()
Dim DefaultScrollBarRenderer2 As FarPoint.Win.Spread.DefaultScrollBarRenderer = New FarPoint.Win.Spread.DefaultScrollBarRenderer()
Dim TextCellType1 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType()
Dim TextCellType2 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType()
Dim TextCellType3 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType()
Dim TextCellType4 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType()
Dim TextCellType5 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType()
Dim TextCellType6 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType()
Dim TextCellType7 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType()
Dim DefaultScrollBarRenderer3 As FarPoint.Win.Spread.DefaultScrollBarRenderer = New FarPoint.Win.Spread.DefaultScrollBarRenderer()
Dim DefaultScrollBarRenderer4 As FarPoint.Win.Spread.DefaultScrollBarRenderer = New FarPoint.Win.Spread.DefaultScrollBarRenderer()
Dim TextCellType8 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType()
Dim TextCellType9 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType()
Dim DefaultScrollBarRenderer5 As FarPoint.Win.Spread.DefaultScrollBarRenderer = New FarPoint.Win.Spread.DefaultScrollBarRenderer()
Dim DefaultScrollBarRenderer6 As FarPoint.Win.Spread.DefaultScrollBarRenderer = New FarPoint.Win.Spread.DefaultScrollBarRenderer()
Dim TextCellType10 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.FpSpread3 = New FarPoint.Win.Spread.FpSpread()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.bt_out_worklist = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripSeparator()
Me.bt_makebat = New System.Windows.Forms.ToolStripMenuItem()
Me.FpSpread3_Sheet1 = New FarPoint.Win.Spread.SheetView()
Me.IreaDataSet = New FileManager.ireaDataSet()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.FpSpread1 = New FarPoint.Win.Spread.FpSpread()
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.FpSpread1_Sheet1 = New FarPoint.Win.Spread.SheetView()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.FpSpread2 = New FarPoint.Win.Spread.FpSpread()
Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.FpSpread2_Sheet1 = New FarPoint.Win.Spread.SheetView()
Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.RichTextBox2 = New System.Windows.Forms.RichTextBox()
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
Me.btRun = New System.Windows.Forms.Button()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
CType(Me.FpSpread3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
CType(Me.FpSpread3_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.IreaDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage2.SuspendLayout()
CType(Me.FpSpread1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip2.SuspendLayout()
CType(Me.FpSpread1_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage3.SuspendLayout()
CType(Me.FpSpread2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip3.SuspendLayout()
CType(Me.FpSpread2_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage4.SuspendLayout()
Me.TableLayoutPanel1.SuspendLayout()
Me.SuspendLayout()
'
'TabControl1
'
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Controls.Add(Me.TabPage3)
Me.TabControl1.Controls.Add(Me.TabPage4)
Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TabControl1.Location = New System.Drawing.Point(3, 3)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(978, 485)
Me.TabControl1.TabIndex = 25
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.FpSpread3)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(970, 459)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "작업대상목록"
Me.TabPage1.UseVisualStyleBackColor = True
'
'FpSpread3
'
Me.FpSpread3.AccessibleDescription = "FpSpread3, Sheet1"
Me.FpSpread3.BackColor = System.Drawing.Color.Transparent
Me.FpSpread3.ContextMenuStrip = Me.ContextMenuStrip1
Me.FpSpread3.Dock = System.Windows.Forms.DockStyle.Fill
Me.FpSpread3.FocusRenderer = DefaultFocusIndicatorRenderer1
Me.FpSpread3.HorizontalScrollBar.Buttons = New FarPoint.Win.Spread.FpScrollBarButtonCollection("BackwardLineButton,ThumbTrack,ForwardLineButton")
Me.FpSpread3.HorizontalScrollBar.Name = ""
Me.FpSpread3.HorizontalScrollBar.Renderer = DefaultScrollBarRenderer1
Me.FpSpread3.HorizontalScrollBar.TabIndex = 4
Me.FpSpread3.Location = New System.Drawing.Point(3, 3)
Me.FpSpread3.Name = "FpSpread3"
Me.FpSpread3.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.FpSpread3.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.FpSpread3_Sheet1})
Me.FpSpread3.Size = New System.Drawing.Size(964, 453)
Me.FpSpread3.Skin = FarPoint.Win.Spread.DefaultSpreadSkins.Classic
Me.FpSpread3.TabIndex = 22
Me.FpSpread3.VerticalScrollBar.Buttons = New FarPoint.Win.Spread.FpScrollBarButtonCollection("BackwardLineButton,ThumbTrack,ForwardLineButton")
Me.FpSpread3.VerticalScrollBar.Name = ""
Me.FpSpread3.VerticalScrollBar.Renderer = DefaultScrollBarRenderer2
Me.FpSpread3.VerticalScrollBar.TabIndex = 5
Me.FpSpread3.VisualStyles = FarPoint.Win.VisualStyles.Off
Me.FpSpread3.SetActiveViewport(0, -1, -1)
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_out_worklist, Me.ToolStripMenuItem3, Me.bt_makebat})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(151, 54)
'
'bt_out_worklist
'
Me.bt_out_worklist.Name = "bt_out_worklist"
Me.bt_out_worklist.Size = New System.Drawing.Size(150, 22)
Me.bt_out_worklist.Text = "내보내기"
'
'ToolStripMenuItem3
'
Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
Me.ToolStripMenuItem3.Size = New System.Drawing.Size(147, 6)
'
'bt_makebat
'
Me.bt_makebat.Name = "bt_makebat"
Me.bt_makebat.Size = New System.Drawing.Size(150, 22)
Me.bt_makebat.Text = "배치파일 작성"
'
'FpSpread3_Sheet1
'
Me.FpSpread3_Sheet1.Reset()
Me.FpSpread3_Sheet1.SheetName = "Sheet1"
'Formulas and custom names must be loaded with R1C1 reference style
Me.FpSpread3_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1
FpSpread3_Sheet1.ColumnCount = 7
Me.FpSpread3_Sheet1.ActiveColumnIndex = -1
Me.FpSpread3_Sheet1.ActiveRowIndex = -1
Me.FpSpread3_Sheet1.AutoGenerateColumns = False
Me.FpSpread3_Sheet1.ColumnFooter.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red
Me.FpSpread3_Sheet1.ColumnFooter.DefaultStyle.Parent = "HeaderDefault"
Me.FpSpread3_Sheet1.ColumnFooterSheetCornerStyle.NoteIndicatorColor = System.Drawing.Color.Red
Me.FpSpread3_Sheet1.ColumnFooterSheetCornerStyle.Parent = "CornerDefault"
Me.FpSpread3_Sheet1.ColumnHeader.Cells.Get(0, 0).Value = "원본파일명"
Me.FpSpread3_Sheet1.ColumnHeader.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red
Me.FpSpread3_Sheet1.ColumnHeader.DefaultStyle.Parent = "HeaderDefault"
Me.FpSpread3_Sheet1.ColumnHeader.Rows.Get(0).Height = 38.0!
Me.FpSpread3_Sheet1.Columns.Get(0).CellType = TextCellType1
Me.FpSpread3_Sheet1.Columns.Get(0).DataField = "원본파일명"
Me.FpSpread3_Sheet1.Columns.Get(0).Width = 151.0!
Me.FpSpread3_Sheet1.Columns.Get(1).CellType = TextCellType2
Me.FpSpread3_Sheet1.Columns.Get(1).DataField = "대상파일명"
Me.FpSpread3_Sheet1.Columns.Get(1).Width = 151.0!
Me.FpSpread3_Sheet1.Columns.Get(2).CellType = TextCellType3
Me.FpSpread3_Sheet1.Columns.Get(2).DataField = "원본경로"
Me.FpSpread3_Sheet1.Columns.Get(2).Width = 151.0!
Me.FpSpread3_Sheet1.Columns.Get(3).CellType = TextCellType4
Me.FpSpread3_Sheet1.Columns.Get(3).DataField = "대상경로"
Me.FpSpread3_Sheet1.Columns.Get(3).Width = 185.0!
Me.FpSpread3_Sheet1.Columns.Get(4).CellType = TextCellType5
Me.FpSpread3_Sheet1.Columns.Get(4).DataField = "구분"
Me.FpSpread3_Sheet1.Columns.Get(4).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center
Me.FpSpread3_Sheet1.Columns.Get(4).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center
Me.FpSpread3_Sheet1.Columns.Get(4).Width = 50.0!
Me.FpSpread3_Sheet1.Columns.Get(5).CellType = TextCellType6
Me.FpSpread3_Sheet1.Columns.Get(5).DataField = "성공"
Me.FpSpread3_Sheet1.Columns.Get(5).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center
Me.FpSpread3_Sheet1.Columns.Get(5).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center
Me.FpSpread3_Sheet1.Columns.Get(5).Width = 39.0!
Me.FpSpread3_Sheet1.Columns.Get(6).AllowAutoSort = True
Me.FpSpread3_Sheet1.Columns.Get(6).CellType = TextCellType7
Me.FpSpread3_Sheet1.Columns.Get(6).DataField = "오류"
Me.FpSpread3_Sheet1.Columns.Get(6).ForeColor = System.Drawing.Color.Red
Me.FpSpread3_Sheet1.Columns.Get(6).Width = 145.0!
Me.FpSpread3_Sheet1.DataAutoCellTypes = False
Me.FpSpread3_Sheet1.DataAutoSizeColumns = False
Me.FpSpread3_Sheet1.DataMember = "WorkList"
Me.FpSpread3_Sheet1.DataSource = Me.IreaDataSet
Me.FpSpread3_Sheet1.RowHeader.Columns.Default.Resizable = False
Me.FpSpread3_Sheet1.RowHeader.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red
Me.FpSpread3_Sheet1.RowHeader.DefaultStyle.Parent = "RowHeaderDefault"
Me.FpSpread3_Sheet1.SheetCornerStyle.NoteIndicatorColor = System.Drawing.Color.Red
Me.FpSpread3_Sheet1.SheetCornerStyle.Parent = "CornerDefault"
Me.FpSpread3_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1
'
'IreaDataSet
'
Me.IreaDataSet.DataSetName = "ireaDataSet"
Me.IreaDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.FpSpread1)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(970, 459)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "파일목록"
Me.TabPage2.UseVisualStyleBackColor = True
'
'FpSpread1
'
Me.FpSpread1.AccessibleDescription = "FpSpread1, Sheet1, Row 0, Column 0, "
Me.FpSpread1.BackColor = System.Drawing.Color.Transparent
Me.FpSpread1.ContextMenuStrip = Me.ContextMenuStrip2
Me.FpSpread1.Dock = System.Windows.Forms.DockStyle.Fill
Me.FpSpread1.FocusRenderer = DefaultFocusIndicatorRenderer1
Me.FpSpread1.HorizontalScrollBar.Buttons = New FarPoint.Win.Spread.FpScrollBarButtonCollection("BackwardLineButton,ThumbTrack,ForwardLineButton")
Me.FpSpread1.HorizontalScrollBar.Name = ""
Me.FpSpread1.HorizontalScrollBar.Renderer = DefaultScrollBarRenderer3
Me.FpSpread1.HorizontalScrollBar.TabIndex = 4
Me.FpSpread1.Location = New System.Drawing.Point(3, 3)
Me.FpSpread1.Name = "FpSpread1"
Me.FpSpread1.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.FpSpread1.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.FpSpread1_Sheet1})
Me.FpSpread1.Size = New System.Drawing.Size(964, 453)
Me.FpSpread1.Skin = FarPoint.Win.Spread.DefaultSpreadSkins.Classic
Me.FpSpread1.TabIndex = 20
Me.FpSpread1.VerticalScrollBar.Buttons = New FarPoint.Win.Spread.FpScrollBarButtonCollection("BackwardLineButton,ThumbTrack,ForwardLineButton")
Me.FpSpread1.VerticalScrollBar.Name = ""
Me.FpSpread1.VerticalScrollBar.Renderer = DefaultScrollBarRenderer4
Me.FpSpread1.VerticalScrollBar.TabIndex = 5
Me.FpSpread1.VisualStyles = FarPoint.Win.VisualStyles.Off
Me.FpSpread1.SetActiveViewport(0, -1, -1)
'
'ContextMenuStrip2
'
Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1})
Me.ContextMenuStrip2.Name = "ContextMenuStrip1"
Me.ContextMenuStrip2.Size = New System.Drawing.Size(123, 26)
'
'ToolStripMenuItem1
'
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(122, 22)
Me.ToolStripMenuItem1.Text = "내보내기"
'
'FpSpread1_Sheet1
'
Me.FpSpread1_Sheet1.Reset()
Me.FpSpread1_Sheet1.SheetName = "Sheet1"
'Formulas and custom names must be loaded with R1C1 reference style
Me.FpSpread1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1
FpSpread1_Sheet1.ColumnCount = 2
Me.FpSpread1_Sheet1.ActiveColumnIndex = -1
Me.FpSpread1_Sheet1.ActiveRowIndex = -1
Me.FpSpread1_Sheet1.ColumnFooter.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red
Me.FpSpread1_Sheet1.ColumnFooter.DefaultStyle.Parent = "HeaderDefault"
Me.FpSpread1_Sheet1.ColumnFooterSheetCornerStyle.NoteIndicatorColor = System.Drawing.Color.Red
Me.FpSpread1_Sheet1.ColumnFooterSheetCornerStyle.Parent = "CornerDefault"
Me.FpSpread1_Sheet1.ColumnHeader.Cells.Get(0, 0).Value = "경로"
Me.FpSpread1_Sheet1.ColumnHeader.Cells.Get(0, 1).Value = "파일명"
Me.FpSpread1_Sheet1.ColumnHeader.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red
Me.FpSpread1_Sheet1.ColumnHeader.DefaultStyle.Parent = "HeaderDefault"
Me.FpSpread1_Sheet1.ColumnHeader.Rows.Get(0).Height = 41.0!
Me.FpSpread1_Sheet1.Columns.Get(0).CellType = TextCellType8
Me.FpSpread1_Sheet1.Columns.Get(0).DataField = "경로"
Me.FpSpread1_Sheet1.Columns.Get(0).Label = "경로"
Me.FpSpread1_Sheet1.Columns.Get(0).Width = 210.0!
Me.FpSpread1_Sheet1.Columns.Get(1).CellType = TextCellType9
Me.FpSpread1_Sheet1.Columns.Get(1).DataField = "파일명"
Me.FpSpread1_Sheet1.Columns.Get(1).Label = "파일명"
Me.FpSpread1_Sheet1.Columns.Get(1).Width = 210.0!
Me.FpSpread1_Sheet1.DataAutoCellTypes = False
Me.FpSpread1_Sheet1.DataAutoHeadings = False
Me.FpSpread1_Sheet1.DataAutoSizeColumns = False
Me.FpSpread1_Sheet1.DataMember = "FileList"
Me.FpSpread1_Sheet1.DataSource = Me.IreaDataSet
Me.FpSpread1_Sheet1.RowHeader.Columns.Default.Resizable = False
Me.FpSpread1_Sheet1.RowHeader.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red
Me.FpSpread1_Sheet1.RowHeader.DefaultStyle.Parent = "RowHeaderDefault"
Me.FpSpread1_Sheet1.SheetCornerStyle.NoteIndicatorColor = System.Drawing.Color.Red
Me.FpSpread1_Sheet1.SheetCornerStyle.Parent = "CornerDefault"
Me.FpSpread1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1
'
'TabPage3
'
Me.TabPage3.Controls.Add(Me.FpSpread2)
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage3.Size = New System.Drawing.Size(970, 459)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "원본목록"
Me.TabPage3.UseVisualStyleBackColor = True
'
'FpSpread2
'
Me.FpSpread2.AccessibleDescription = "FpSpread2, Sheet1, Row 0, Column 0, "
Me.FpSpread2.BackColor = System.Drawing.Color.Transparent
Me.FpSpread2.ContextMenuStrip = Me.ContextMenuStrip3
Me.FpSpread2.Dock = System.Windows.Forms.DockStyle.Fill
Me.FpSpread2.FocusRenderer = DefaultFocusIndicatorRenderer1
Me.FpSpread2.HorizontalScrollBar.Buttons = New FarPoint.Win.Spread.FpScrollBarButtonCollection("BackwardLineButton,ThumbTrack,ForwardLineButton")
Me.FpSpread2.HorizontalScrollBar.Name = ""
Me.FpSpread2.HorizontalScrollBar.Renderer = DefaultScrollBarRenderer5
Me.FpSpread2.HorizontalScrollBar.TabIndex = 2
Me.FpSpread2.Location = New System.Drawing.Point(3, 3)
Me.FpSpread2.Name = "FpSpread2"
Me.FpSpread2.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.FpSpread2.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.FpSpread2_Sheet1})
Me.FpSpread2.Size = New System.Drawing.Size(964, 453)
Me.FpSpread2.Skin = FarPoint.Win.Spread.DefaultSpreadSkins.Classic
Me.FpSpread2.TabIndex = 21
Me.FpSpread2.VerticalScrollBar.Buttons = New FarPoint.Win.Spread.FpScrollBarButtonCollection("BackwardLineButton,ThumbTrack,ForwardLineButton")
Me.FpSpread2.VerticalScrollBar.Name = ""
Me.FpSpread2.VerticalScrollBar.Renderer = DefaultScrollBarRenderer6
Me.FpSpread2.VerticalScrollBar.TabIndex = 3
Me.FpSpread2.VisualStyles = FarPoint.Win.VisualStyles.Off
Me.FpSpread2.SetActiveViewport(0, -1, -1)
'
'ContextMenuStrip3
'
Me.ContextMenuStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem2})
Me.ContextMenuStrip3.Name = "ContextMenuStrip1"
Me.ContextMenuStrip3.Size = New System.Drawing.Size(123, 26)
'
'ToolStripMenuItem2
'
Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(122, 22)
Me.ToolStripMenuItem2.Text = "내보내기"
'
'FpSpread2_Sheet1
'
Me.FpSpread2_Sheet1.Reset()
Me.FpSpread2_Sheet1.SheetName = "Sheet1"
'Formulas and custom names must be loaded with R1C1 reference style
Me.FpSpread2_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1
FpSpread2_Sheet1.ColumnCount = 1
Me.FpSpread2_Sheet1.ActiveColumnIndex = -1
Me.FpSpread2_Sheet1.ActiveRowIndex = -1
Me.FpSpread2_Sheet1.ColumnFooter.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red
Me.FpSpread2_Sheet1.ColumnFooter.DefaultStyle.Parent = "HeaderDefault"
Me.FpSpread2_Sheet1.ColumnFooterSheetCornerStyle.NoteIndicatorColor = System.Drawing.Color.Red
Me.FpSpread2_Sheet1.ColumnFooterSheetCornerStyle.Parent = "CornerDefault"
Me.FpSpread2_Sheet1.ColumnHeader.Cells.Get(0, 0).Value = "목록"
Me.FpSpread2_Sheet1.ColumnHeader.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red
Me.FpSpread2_Sheet1.ColumnHeader.DefaultStyle.Parent = "HeaderDefault"
Me.FpSpread2_Sheet1.ColumnHeader.Rows.Get(0).Height = 46.0!
Me.FpSpread2_Sheet1.Columns.Get(0).CellType = TextCellType10
Me.FpSpread2_Sheet1.Columns.Get(0).DataField = "목록명"
Me.FpSpread2_Sheet1.Columns.Get(0).Label = "목록"
Me.FpSpread2_Sheet1.Columns.Get(0).Width = 271.0!
Me.FpSpread2_Sheet1.DataAutoCellTypes = False
Me.FpSpread2_Sheet1.DataAutoHeadings = False
Me.FpSpread2_Sheet1.DataAutoSizeColumns = False
Me.FpSpread2_Sheet1.DataMember = "SrcList"
Me.FpSpread2_Sheet1.DataSource = Me.IreaDataSet
Me.FpSpread2_Sheet1.RowHeader.Columns.Default.Resizable = False
Me.FpSpread2_Sheet1.RowHeader.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red
Me.FpSpread2_Sheet1.RowHeader.DefaultStyle.Parent = "RowHeaderDefault"
Me.FpSpread2_Sheet1.SheetCornerStyle.NoteIndicatorColor = System.Drawing.Color.Red
Me.FpSpread2_Sheet1.SheetCornerStyle.Parent = "CornerDefault"
Me.FpSpread2_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1
'
'TabPage4
'
Me.TabPage4.Controls.Add(Me.RichTextBox2)
Me.TabPage4.Location = New System.Drawing.Point(4, 22)
Me.TabPage4.Name = "TabPage4"
Me.TabPage4.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage4.Size = New System.Drawing.Size(970, 459)
Me.TabPage4.TabIndex = 3
Me.TabPage4.Text = "백업폴더내역"
Me.TabPage4.UseVisualStyleBackColor = True
'
'RichTextBox2
'
Me.RichTextBox2.Dock = System.Windows.Forms.DockStyle.Fill
Me.RichTextBox2.Location = New System.Drawing.Point(3, 3)
Me.RichTextBox2.Name = "RichTextBox2"
Me.RichTextBox2.Size = New System.Drawing.Size(964, 453)
Me.RichTextBox2.TabIndex = 27
Me.RichTextBox2.Text = ""
'
'TableLayoutPanel1
'
Me.TableLayoutPanel1.ColumnCount = 1
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
Me.TableLayoutPanel1.Controls.Add(Me.TabControl1, 0, 0)
Me.TableLayoutPanel1.Controls.Add(Me.RichTextBox1, 0, 1)
Me.TableLayoutPanel1.Controls.Add(Me.btRun, 0, 2)
Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 0)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 3
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 128.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 43.0!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(984, 662)
Me.TableLayoutPanel1.TabIndex = 26
'
'RichTextBox1
'
Me.RichTextBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.RichTextBox1.Location = New System.Drawing.Point(3, 494)
Me.RichTextBox1.Name = "RichTextBox1"
Me.RichTextBox1.Size = New System.Drawing.Size(978, 122)
Me.RichTextBox1.TabIndex = 26
Me.RichTextBox1.Text = ""
'
'btRun
'
Me.btRun.Dock = System.Windows.Forms.DockStyle.Fill
Me.btRun.Font = New System.Drawing.Font("굴림", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.btRun.Location = New System.Drawing.Point(3, 622)
Me.btRun.Name = "btRun"
Me.btRun.Size = New System.Drawing.Size(978, 37)
Me.btRun.TabIndex = 27
Me.btRun.Text = "실 행"
Me.btRun.UseVisualStyleBackColor = True
'
'Form_Status
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(984, 662)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.Name = "Form_Status"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "상태창(데이터수집)"
Me.TopMost = True
Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
CType(Me.FpSpread3, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
CType(Me.FpSpread3_Sheet1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.IreaDataSet, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage2.ResumeLayout(False)
CType(Me.FpSpread1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip2.ResumeLayout(False)
CType(Me.FpSpread1_Sheet1, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage3.ResumeLayout(False)
CType(Me.FpSpread2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip3.ResumeLayout(False)
CType(Me.FpSpread2_Sheet1, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage4.ResumeLayout(False)
Me.TableLayoutPanel1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents FpSpread3 As FarPoint.Win.Spread.FpSpread
Friend WithEvents FpSpread3_Sheet1 As FarPoint.Win.Spread.SheetView
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents FpSpread1 As FarPoint.Win.Spread.FpSpread
Friend WithEvents FpSpread1_Sheet1 As FarPoint.Win.Spread.SheetView
Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
Friend WithEvents FpSpread2 As FarPoint.Win.Spread.FpSpread
Friend WithEvents FpSpread2_Sheet1 As FarPoint.Win.Spread.SheetView
Friend WithEvents IreaDataSet As FileManager.ireaDataSet
Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox
Friend WithEvents TabPage4 As System.Windows.Forms.TabPage
Friend WithEvents RichTextBox2 As System.Windows.Forms.RichTextBox
Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
Friend WithEvents bt_out_worklist As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ContextMenuStrip2 As System.Windows.Forms.ContextMenuStrip
Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ContextMenuStrip3 As System.Windows.Forms.ContextMenuStrip
Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents btRun As System.Windows.Forms.Button
Friend WithEvents ToolStripMenuItem3 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents bt_makebat As System.Windows.Forms.ToolStripMenuItem
End Class

144
DriveInfo/입력폼/Form_Status.resx Normal file
View File

@@ -0,0 +1,144 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>611, 14</value>
</metadata>
<metadata name="FpSpread3_Sheet1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>33, 14</value>
</metadata>
<metadata name="IreaDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>495, 14</value>
</metadata>
<metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>771, 14</value>
</metadata>
<metadata name="FpSpread1_Sheet1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>187, 14</value>
</metadata>
<metadata name="ContextMenuStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>931, 14</value>
</metadata>
<metadata name="FpSpread2_Sheet1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>341, 14</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>56</value>
</metadata>
</root>

195
DriveInfo/입력폼/Form_Status.vb Normal file
View File

@@ -0,0 +1,195 @@
Public Class Form_Status
Enum E_SaveType
WorkList = 0
FileList = 1
SrcList = 2
End Enum
Public AutoRun As Boolean = False
Public Winhide As Boolean = False
'//뷰의 내용을 파일로 저장한다.
Public Sub SaveList(ByVal Div As E_SaveType, ByVal UseOD As Boolean)
Dim NowString As String = Format(Now, "yyMMddHHmm")
Dim Filename As String = ""
Select Case Div
Case E_SaveType.FileList
Filename = "전체파일목록"
Case E_SaveType.SrcList
Filename = "원본목록"
Case E_SaveType.WorkList
Filename = "작업파일목록"
End Select
Filename = Filename & NowString & ".xls"
If UseOD Then
Dim OD As New SaveFileDialog
OD.InitialDirectory = My.Application.Info.DirectoryPath
OD.FileName = Filename
OD.Filter = "엑셀워크시트(*xls)|*.xls"
If OD.ShowDialog() = Windows.Forms.DialogResult.OK Then
Select Case Div
Case E_SaveType.WorkList
PLog.Add("Save Work List : " + OD.FileName)
Me.FpSpread3.SaveExcel(OD.FileName, FarPoint.Excel.ExcelSaveFlags.SaveBothCustomRowAndColumnHeaders)
Case E_SaveType.FileList
PLog.Add("Save File List : " + OD.FileName)
Me.FpSpread1.SaveExcel(OD.FileName, FarPoint.Excel.ExcelSaveFlags.SaveBothCustomRowAndColumnHeaders)
Case E_SaveType.SrcList
PLog.Add("Save Source List : " + OD.FileName)
Me.FpSpread2.SaveExcel(OD.FileName, FarPoint.Excel.ExcelSaveFlags.SaveBothCustomRowAndColumnHeaders)
End Select
MsgBox("목록이 저장되었습니다" & vbCrLf & OD.FileName, MsgBoxStyle.Critical, "화인")
End If
Else
Filename = PathList & "\" & Filename
Select Case Div
Case E_SaveType.WorkList
PLog.Add("Save Work List : " + Filename)
Me.FpSpread3.SaveExcel(Filename, FarPoint.Excel.ExcelSaveFlags.SaveBothCustomRowAndColumnHeaders)
Case E_SaveType.FileList
PLog.Add("Save File List : " + Filename)
Me.FpSpread1.SaveExcel(Filename, FarPoint.Excel.ExcelSaveFlags.SaveBothCustomRowAndColumnHeaders)
Case E_SaveType.SrcList
PLog.Add("Save Source List : " + Filename)
Me.FpSpread2.SaveExcel(Filename, FarPoint.Excel.ExcelSaveFlags.SaveBothCustomRowAndColumnHeaders)
End Select
'MsgBox("목록이 저장되었습니다" & vbCrLf & Filename, MsgBoxStyle.Critical, "화인")
End If
End Sub
Private Sub bt_out_worklist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_out_worklist.Click
Me.SaveList(E_SaveType.WorkList, True)
End Sub
Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
Me.SaveList(E_SaveType.FileList, True)
End Sub
Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
Me.SaveList(E_SaveType.SrcList, True)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btRun.Click
If Me.FpSpread3_Sheet1.RowCount <= 0 Then
If Winhide Then
MDiMain.Noti("작업목록이 없으므로 실행할 수 없습니다")
Else
MsgBox("작업목록이 존재하지 않습니다", MsgBoxStyle.Critical, "확인")
End If
Return
End If
' MsgBox("1")
If Not AutoRun Then
If MsgBox("[복사/이동/삭제] 실행하시겠습니까?" + vbCrLf + "FTP의경우 백업정책이 적용되지 않습니다", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "실행확인") <> MsgBoxResult.Ok Then Return
End If
Me.btRun.Enabled = False
MDiMain.Timer1.Enabled = False
' MsgBox("2")
If GetrunType() = E_Runtype.Copy Then
Try
MoveFileRCopy(Winhide)
Catch ex As Exception
Errlog("MoveFileRCopy" & ex.Message.ToString)
End Try
ElseIf GetrunType() = E_Runtype.Move Then
Try
MoveFileRMove(Winhide)
Catch ex As Exception
Errlog("MoveFileRMove" & ex.Message.ToString)
End Try
Else
Try
DeleteFileR(Winhide)
Catch ex As Exception
Errlog("DeleteFileR" & ex.Message.ToString)
End Try
End If
Try
MakeBakLog1()
Catch ex As Exception
Errlog("MakeBakLog1" & ex.Message.ToString)
End Try
Application.DoEvents()
MDiMain.Timer1.Enabled = True
If Winhide Then
MDiMain.Noti("완료되었습니다")
' Me.Close()
Else
MsgBox("완료되었습니다", MsgBoxStyle.Information, "확인")
End If
End Sub
Private Sub bt_makebat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_makebat.Click
Dim FN As String = ""
Dim Scr As String = ""
Select Case GetrunType()
Case E_Runtype.Copy
FN = "복사("
Scr = "copy /y "
Case E_Runtype.Move
FN = "이동("
Scr = "move /y "
Case E_Runtype.Delete
FN = "삭제("
Scr = "del /f /q "
End Select
FN = "c:\" & FN & Format(Now, "yyyyMMdd") & ").bat"
Dim Fs As New FileStream(FN, FileMode.Create)
Dim Sw As New StreamWriter(Fs, System.Text.Encoding.Default)
MDiMain.MSG("스크립트생성중")
Dim index As Integer = 0
Dim endcnt As Integer = MDiMain.DataSet1.WorkList.Rows.Count - 1
Sw.WriteLine("@echo off")
For Each Dr As ireaDataSet.WorkListRow In MDiMain.DataSet1.WorkList.Rows
index += 1
MDiMain.ShowCnt1(index, endcnt, "스크립트생성")
Sw.WriteLine("echo " & index & "/" & MDiMain.DataSet1.WorkList.Rows.Count)
Select Case GetrunType()
Case E_Runtype.Delete
Sw.WriteLine("del /f /q " & Chr(&H22) & Dr.원본경로 & "\" & Dr.원본파일명 & Chr(&H22))
Case E_Runtype.Copy
Sw.WriteLine("copy /y " & Dr.원본경로 & "\" & Dr.원본파일명 & Space(1) & Dr.대상경로 & "\" & Dr.대상파일명)
Case E_Runtype.Move
Sw.WriteLine("move /y " & Dr.원본경로 & "\" & Dr.원본파일명 & Space(1) & Dr.대상경로 & "\" & Dr.대상파일명)
End Select
Next
Sw.Flush()
Sw.Close()
Fs.Close()
Sw = Nothing
Fs = Nothing
MDiMain.MSG("스크립트생성완료")
MsgBox("배치파일이 생성되엇습니다" & vbCrLf & "파일명 : " & FN, MsgBoxStyle.Information, "확인")
End Sub
Private Sub Form_Status_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
RefreshCount
End Sub
Private Sub RefreshCount()
Me.TabPage1.Text = "작업대상목록(" & Me.FpSpread3_Sheet1.RowCount & ")"
Me.TabPage2.Text = "파일목록(" & Me.FpSpread1_Sheet1.RowCount & ")"
Me.TabPage3.Text = "원본목록(" & Me.FpSpread2_Sheet1.RowCount & ")"
End Sub
Private Sub Form_Status_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.FpSpread1.DataSource = MDiMain.DataSet1.FileList
Me.FpSpread2.DataSource = MDiMain.DataSet1.SrcList
Me.FpSpread3.DataSource = MDiMain.DataSet1.WorkList
RefreshCount()
If Winhide AndAlso WindowState <> FormWindowState.Minimized Then Me.WindowState = FormWindowState.Minimized
End Sub
End Class

264
DriveInfo/입력폼/Frm_DeleteFile.Designer.vb generated Normal file
View File

@@ -0,0 +1,264 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_DeleteFile
Inherits System.Windows.Forms.Form
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim TipAppearance4 As FarPoint.Win.Spread.TipAppearance = New FarPoint.Win.Spread.TipAppearance
Me.FB = New System.Windows.Forms.FolderBrowserDialog
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel
Me.FpSpread1 = New FarPoint.Win.Spread.FpSpread
Me.FpSpread1_Sheet1 = New FarPoint.Win.Spread.SheetView
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel
Me.tb_deldesc = New System.Windows.Forms.TextBox
Me.TabControl1 = New System.Windows.Forms.TabControl
Me.TabPage1 = New System.Windows.Forms.TabPage
Me.tb_deltext1 = New System.Windows.Forms.TextBox
Me.tb_deltext2 = New System.Windows.Forms.TextBox
Me.RadioButton2 = New System.Windows.Forms.RadioButton
Me.RadioButton1 = New System.Windows.Forms.RadioButton
Me.TabPage2 = New System.Windows.Forms.TabPage
Me.desc_timer = New System.Windows.Forms.Timer(Me.components)
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.ToolStrip1.SuspendLayout()
CType(Me.FpSpread1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.FpSpread1_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TableLayoutPanel1.SuspendLayout()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.SuspendLayout()
'
'StatusStrip1
'
Me.StatusStrip1.Location = New System.Drawing.Point(0, 544)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(982, 22)
Me.StatusStrip1.TabIndex = 2
Me.StatusStrip1.Text = "StatusStrip1"
'
'ToolStrip1
'
Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(32, 32)
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripLabel1})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(982, 39)
Me.ToolStrip1.TabIndex = 3
Me.ToolStrip1.Text = "ToolStrip1"
'
'ToolStripButton1
'
Me.ToolStripButton1.Font = New System.Drawing.Font("맑은 고딕", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.ToolStripButton1.Image = Global.FileManager.My.Resources.Resources.play_32
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(67, 36)
Me.ToolStripButton1.Text = "실행"
Me.ToolStripButton1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'ToolStripLabel1
'
Me.ToolStripLabel1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripLabel1.Name = "ToolStripLabel1"
Me.ToolStripLabel1.Size = New System.Drawing.Size(205, 36)
Me.ToolStripLabel1.Text = "→ 파일을 삭제할 방법을 선택하세요."
'
'FpSpread1
'
Me.FpSpread1.About = "3.0.2003.2005"
Me.FpSpread1.AccessibleDescription = ""
Me.FpSpread1.Dock = System.Windows.Forms.DockStyle.Fill
Me.FpSpread1.Font = New System.Drawing.Font("맑은 고딕", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.FpSpread1.HorizontalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded
Me.FpSpread1.Location = New System.Drawing.Point(3, 350)
Me.FpSpread1.Name = "FpSpread1"
Me.FpSpread1.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.FpSpread1_Sheet1})
Me.FpSpread1.Size = New System.Drawing.Size(976, 154)
Me.FpSpread1.TabIndex = 4
TipAppearance4.BackColor = System.Drawing.SystemColors.Info
TipAppearance4.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
TipAppearance4.ForeColor = System.Drawing.SystemColors.InfoText
Me.FpSpread1.TextTipAppearance = TipAppearance4
Me.FpSpread1.VerticalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded
'
'FpSpread1_Sheet1
'
Me.FpSpread1_Sheet1.Reset()
Me.FpSpread1_Sheet1.SheetName = "Sheet1"
'
'TableLayoutPanel1
'
Me.TableLayoutPanel1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TableLayoutPanel1.ColumnCount = 1
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
Me.TableLayoutPanel1.Controls.Add(Me.tb_deldesc, 0, 1)
Me.TableLayoutPanel1.Controls.Add(Me.FpSpread1, 0, 2)
Me.TableLayoutPanel1.Controls.Add(Me.TabControl1, 0, 0)
Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 34)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 3
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 100.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 160.0!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(982, 507)
Me.TableLayoutPanel1.TabIndex = 5
'
'tb_deldesc
'
Me.tb_deldesc.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tb_deldesc.Dock = System.Windows.Forms.DockStyle.Fill
Me.tb_deldesc.Font = New System.Drawing.Font("맑은 고딕", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.tb_deldesc.Location = New System.Drawing.Point(3, 250)
Me.tb_deldesc.Multiline = True
Me.tb_deldesc.Name = "tb_deldesc"
Me.tb_deldesc.Size = New System.Drawing.Size(976, 94)
Me.tb_deldesc.TabIndex = 5
'
'TabControl1
'
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TabControl1.Font = New System.Drawing.Font("맑은 고딕", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.TabControl1.Location = New System.Drawing.Point(3, 3)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(976, 241)
Me.TabControl1.TabIndex = 5
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.tb_deltext1)
Me.TabPage1.Controls.Add(Me.tb_deltext2)
Me.TabPage1.Controls.Add(Me.RadioButton2)
Me.TabPage1.Controls.Add(Me.RadioButton1)
Me.TabPage1.Location = New System.Drawing.Point(4, 24)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(968, 213)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "직접입력"
Me.TabPage1.UseVisualStyleBackColor = True
'
'tb_deltext1
'
Me.tb_deltext1.Location = New System.Drawing.Point(33, 40)
Me.tb_deltext1.Name = "tb_deltext1"
Me.tb_deltext1.Size = New System.Drawing.Size(239, 23)
Me.tb_deltext1.TabIndex = 6
'
'tb_deltext2
'
Me.tb_deltext2.Location = New System.Drawing.Point(33, 104)
Me.tb_deltext2.Name = "tb_deltext2"
Me.tb_deltext2.Size = New System.Drawing.Size(239, 23)
Me.tb_deltext2.TabIndex = 5
'
'RadioButton2
'
Me.RadioButton2.AutoSize = True
Me.RadioButton2.Location = New System.Drawing.Point(15, 79)
Me.RadioButton2.Name = "RadioButton2"
Me.RadioButton2.Size = New System.Drawing.Size(257, 19)
Me.RadioButton2.TabIndex = 4
Me.RadioButton2.TabStop = True
Me.RadioButton2.Text = "지정된 문자가 들어있는 파일을 삭제합니다"
Me.RadioButton2.UseVisualStyleBackColor = True
'
'RadioButton1
'
Me.RadioButton1.AutoSize = True
Me.RadioButton1.Location = New System.Drawing.Point(15, 15)
Me.RadioButton1.Name = "RadioButton1"
Me.RadioButton1.Size = New System.Drawing.Size(177, 19)
Me.RadioButton1.TabIndex = 3
Me.RadioButton1.TabStop = True
Me.RadioButton1.Text = "삭제할 파일명을 지정합니다"
Me.RadioButton1.UseVisualStyleBackColor = True
'
'TabPage2
'
Me.TabPage2.Location = New System.Drawing.Point(4, 24)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(968, 213)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "파일목록"
Me.TabPage2.UseVisualStyleBackColor = True
'
'desc_timer
'
Me.desc_timer.Interval = 1000
'
'ToolTip1
'
Me.ToolTip1.AutoPopDelay = 60000
Me.ToolTip1.InitialDelay = 500
Me.ToolTip1.ReshowDelay = 100
'
'Frm_DeleteFile
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(982, 566)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.StatusStrip1)
Me.Name = "Frm_DeleteFile"
Me.Text = "파일삭제"
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
CType(Me.FpSpread1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.FpSpread1_Sheet1, System.ComponentModel.ISupportInitialize).EndInit()
Me.TableLayoutPanel1.ResumeLayout(False)
Me.TableLayoutPanel1.PerformLayout()
Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents FB As System.Windows.Forms.FolderBrowserDialog
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel
Friend WithEvents FpSpread1 As FarPoint.Win.Spread.FpSpread
Friend WithEvents FpSpread1_Sheet1 As FarPoint.Win.Spread.SheetView
Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
Friend WithEvents tb_deldesc As System.Windows.Forms.TextBox
Friend WithEvents desc_timer As System.Windows.Forms.Timer
Friend WithEvents tb_deltext1 As System.Windows.Forms.TextBox
Friend WithEvents tb_deltext2 As System.Windows.Forms.TextBox
Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip
End Class

138
DriveInfo/입력폼/Frm_DeleteFile.resx Normal file
View File

@@ -0,0 +1,138 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="FB.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>82, 17</value>
</metadata>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>200, 17</value>
</metadata>
<metadata name="FpSpread1_Sheet1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>309, 17</value>
</metadata>
<metadata name="desc_timer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>463, 17</value>
</metadata>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>574, 17</value>
</metadata>
</root>

61
DriveInfo/입력폼/Frm_DeleteFile.vb Normal file
View File

@@ -0,0 +1,61 @@
Public Class Frm_DeleteFile
Dim MsgBuff As New System.Text.StringBuilder
Dim Err As Boolean = False
Private Sub desc_timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles desc_timer.Tick
MsgBuff.Remove(0, MsgBuff.Length)
Err = False
If Me.TabControl1.SelectedIndex = 0 Then
If Me.RadioButton1.Checked Then
If Me.tb_deltext1.Text = "" Or Me.tb_deltext1.Text.Length = 0 Then
Err = True
MsgBuff.AppendLine("삭제할 파일명에 들어가는 문자를 입력하세요")
End If
If Err = False Then
MsgBuff.AppendLine("작업폴더 : " & Pub.GetWorkDIr & " 에서")
MsgBuff.AppendLine("파일명이 [ " & Me.tb_deltext1.Text & "." & Pub.GetExtendFromMdi & " ] 인 파일들을 삭제합니다")
MsgBuff.AppendLine("대상파일의 확장자구분은 [ " & IIf(Pub.GetExtendFromMdi = "*", "모든형식", Pub.GetExtendFromMdi) & " ] 이며 하위폴더는 " & IIf(Pub.GetSubDir, "[포함] 합니다", "[포함] 하지 않습니다"))
End If
ElseIf Me.RadioButton2.Checked Then
If Me.tb_deltext2.Text = "" Or Me.tb_deltext2.Text.Length = 0 Then
Err = True
MsgBuff.AppendLine("삭제할 파일명에 들어가는 문자를 입력하세요")
End If
If Err = False Then
MsgBuff.AppendLine("작업폴더 : " & Pub.GetWorkDIr & " 에서")
MsgBuff.AppendLine("파일명에 [ " & Me.tb_deltext2.Text & " ] 가 들어있는 파일들을 삭제합니다")
MsgBuff.AppendLine("대상파일의 확장자구분은 [ " & IIf(Pub.GetExtendFromMdi = "*", "모든형식", Pub.GetExtendFromMdi) & " ] 이며 하위폴더는 " & IIf(Pub.GetSubDir, "[포함] 합니다", "[포함] 하지 않습니다"))
End If
Else
MsgBuff.AppendLine("파일을 삭제할 방법이 선택되지 않았습니다")
End If
Else
End If
Me.tb_deldesc.Text = MsgBuff.ToString
End Sub
Private Sub Frm_DeleteFile_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
' Me.desc_timer.Enabled = True
End Sub
Private Sub tb_deltext2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_deltext2.TextChanged
Me.RadioButton2.Checked = True
End Sub
Private Sub tb_deldesc_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_deldesc.TextChanged
Me.ToolTip1.SetToolTip(sender, Me.tb_deldesc.Text)
End Sub
Private Sub tb_deltext1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_deltext1.TextChanged
Me.RadioButton1.Checked = True
End Sub
End Class

255
DriveInfo/입력폼/Frm_FileInfo.Designer.vb generated Normal file
View File

@@ -0,0 +1,255 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class Frm_FileInfo
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.label10 = New System.Windows.Forms.Label
Me.driveRootDirectory = New System.Windows.Forms.TextBox
Me.label6 = New System.Windows.Forms.Label
Me.driveType = New System.Windows.Forms.TextBox
Me.driveFormat = New System.Windows.Forms.TextBox
Me.driveVolumeLabel = New System.Windows.Forms.TextBox
Me.driveName = New System.Windows.Forms.TextBox
Me.driveReadyStatus = New System.Windows.Forms.Label
Me.label5 = New System.Windows.Forms.Label
Me.label4 = New System.Windows.Forms.Label
Me.label3 = New System.Windows.Forms.Label
Me.label2 = New System.Windows.Forms.Label
Me.drivesOnPc = New System.Windows.Forms.ComboBox
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip
Me.TabControl1 = New System.Windows.Forms.TabControl
Me.TabPage1 = New System.Windows.Forms.TabPage
Me.TabPage2 = New System.Windows.Forms.TabPage
Me.TabPage3 = New System.Windows.Forms.TabPage
Me.TabControl1.SuspendLayout()
Me.SuspendLayout()
'
'label10
'
Me.label10.AutoSize = True
Me.label10.Location = New System.Drawing.Point(62, 434)
Me.label10.Name = "label10"
Me.label10.Size = New System.Drawing.Size(87, 12)
Me.label10.TabIndex = 35
Me.label10.Text = "Select a Drive:"
'
'driveRootDirectory
'
Me.driveRootDirectory.Enabled = False
Me.driveRootDirectory.Location = New System.Drawing.Point(649, 434)
Me.driveRootDirectory.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.driveRootDirectory.Name = "driveRootDirectory"
Me.driveRootDirectory.Size = New System.Drawing.Size(135, 21)
Me.driveRootDirectory.TabIndex = 34
'
'label6
'
Me.label6.AutoSize = True
Me.label6.Location = New System.Drawing.Point(539, 436)
Me.label6.Name = "label6"
Me.label6.Size = New System.Drawing.Size(88, 12)
Me.label6.TabIndex = 33
Me.label6.Text = "Root Directory:"
'
'driveType
'
Me.driveType.Enabled = False
Me.driveType.Location = New System.Drawing.Point(636, 468)
Me.driveType.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.driveType.Name = "driveType"
Me.driveType.Size = New System.Drawing.Size(94, 21)
Me.driveType.TabIndex = 32
'
'driveFormat
'
Me.driveFormat.Enabled = False
Me.driveFormat.Location = New System.Drawing.Point(411, 465)
Me.driveFormat.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.driveFormat.Name = "driveFormat"
Me.driveFormat.Size = New System.Drawing.Size(135, 21)
Me.driveFormat.TabIndex = 31
'
'driveVolumeLabel
'
Me.driveVolumeLabel.Enabled = False
Me.driveVolumeLabel.Location = New System.Drawing.Point(172, 465)
Me.driveVolumeLabel.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.driveVolumeLabel.Name = "driveVolumeLabel"
Me.driveVolumeLabel.Size = New System.Drawing.Size(135, 21)
Me.driveVolumeLabel.TabIndex = 30
'
'driveName
'
Me.driveName.Enabled = False
Me.driveName.Location = New System.Drawing.Point(386, 432)
Me.driveName.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.driveName.Name = "driveName"
Me.driveName.Size = New System.Drawing.Size(135, 21)
Me.driveName.TabIndex = 29
'
'driveReadyStatus
'
Me.driveReadyStatus.AutoSize = True
Me.driveReadyStatus.Location = New System.Drawing.Point(233, 434)
Me.driveReadyStatus.Name = "driveReadyStatus"
Me.driveReadyStatus.Size = New System.Drawing.Size(64, 12)
Me.driveReadyStatus.TabIndex = 28
Me.driveReadyStatus.Text = "Not Ready"
'
'label5
'
Me.label5.AutoSize = True
Me.label5.Location = New System.Drawing.Point(332, 435)
Me.label5.Name = "label5"
Me.label5.Size = New System.Drawing.Size(43, 12)
Me.label5.TabIndex = 27
Me.label5.Text = "Name:"
'
'label4
'
Me.label4.AutoSize = True
Me.label4.Location = New System.Drawing.Point(64, 468)
Me.label4.Name = "label4"
Me.label4.Size = New System.Drawing.Size(87, 12)
Me.label4.TabIndex = 26
Me.label4.Text = "Volume Label:"
'
'label3
'
Me.label3.AutoSize = True
Me.label3.Location = New System.Drawing.Point(585, 471)
Me.label3.Name = "label3"
Me.label3.Size = New System.Drawing.Size(38, 12)
Me.label3.TabIndex = 25
Me.label3.Text = "Type:"
'
'label2
'
Me.label2.AutoSize = True
Me.label2.Location = New System.Drawing.Point(316, 468)
Me.label2.Name = "label2"
Me.label2.Size = New System.Drawing.Size(76, 12)
Me.label2.TabIndex = 24
Me.label2.Text = "File System:"
'
'drivesOnPc
'
Me.drivesOnPc.FormattingEnabled = True
Me.drivesOnPc.Location = New System.Drawing.Point(172, 432)
Me.drivesOnPc.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.drivesOnPc.Name = "drivesOnPc"
Me.drivesOnPc.Size = New System.Drawing.Size(54, 20)
Me.drivesOnPc.TabIndex = 23
'
'StatusStrip1
'
Me.StatusStrip1.Location = New System.Drawing.Point(0, 592)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(914, 22)
Me.StatusStrip1.TabIndex = 36
Me.StatusStrip1.Text = "StatusStrip1"
'
'TabControl1
'
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Controls.Add(Me.TabPage3)
Me.TabControl1.Location = New System.Drawing.Point(0, 1)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(914, 252)
Me.TabControl1.TabIndex = 37
'
'TabPage1
'
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(906, 226)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "파일목록"
Me.TabPage1.UseVisualStyleBackColor = True
'
'TabPage2
'
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(906, 74)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "파일명변경"
Me.TabPage2.UseVisualStyleBackColor = True
'
'TabPage3
'
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Size = New System.Drawing.Size(906, 74)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "파일삭제"
Me.TabPage3.UseVisualStyleBackColor = True
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(914, 614)
Me.Controls.Add(Me.TabControl1)
Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.label10)
Me.Controls.Add(Me.driveRootDirectory)
Me.Controls.Add(Me.label6)
Me.Controls.Add(Me.driveType)
Me.Controls.Add(Me.driveFormat)
Me.Controls.Add(Me.driveVolumeLabel)
Me.Controls.Add(Me.driveName)
Me.Controls.Add(Me.driveReadyStatus)
Me.Controls.Add(Me.label5)
Me.Controls.Add(Me.label4)
Me.Controls.Add(Me.label3)
Me.Controls.Add(Me.label2)
Me.Controls.Add(Me.drivesOnPc)
Me.Name = "Form1"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "DriveInfo Sample"
Me.TabControl1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents label10 As System.Windows.Forms.Label
Friend WithEvents driveRootDirectory As System.Windows.Forms.TextBox
Friend WithEvents label6 As System.Windows.Forms.Label
Friend WithEvents driveType As System.Windows.Forms.TextBox
Friend WithEvents driveFormat As System.Windows.Forms.TextBox
Friend WithEvents driveVolumeLabel As System.Windows.Forms.TextBox
Friend WithEvents driveName As System.Windows.Forms.TextBox
Friend WithEvents driveReadyStatus As System.Windows.Forms.Label
Friend WithEvents label5 As System.Windows.Forms.Label
Friend WithEvents label4 As System.Windows.Forms.Label
Friend WithEvents label3 As System.Windows.Forms.Label
Friend WithEvents label2 As System.Windows.Forms.Label
Friend WithEvents drivesOnPc As System.Windows.Forms.ComboBox
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
End Class

123
DriveInfo/입력폼/Frm_FileInfo.resx Normal file
View File

@@ -0,0 +1,123 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

131
DriveInfo/입력폼/Frm_FileInfo.vb Normal file
View File

@@ -0,0 +1,131 @@
Imports System.IO
Public Class Frm_FileInfo
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.driveReadyStatus.Text = ""
'Get a DriveInfo object for each drive on the system
Dim drives As System.IO.DriveInfo() = System.IO.DriveInfo.GetDrives
'Populate the drives combo box with all drives
drivesOnPc.Items.AddRange(drives)
End Sub
Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
' Rectangle to define size of Pie Chart
Dim rect As Rectangle = New Rectangle(370, 20, 200, 200)
' Rectangle to use as a border around Pie Chart
Dim rect2 As Rectangle = New Rectangle(310, 10, 320, 320)
' Rectangles for color legend
Dim freeLegend As Rectangle = New Rectangle(315, 275, 20, 20)
Dim usedLegend As Rectangle = New Rectangle(315, 300, 20, 20)
e.Graphics.DrawRectangle(Pens.Black, rect2)
If isSpaceInfoAvailable = True Then
' Draw Pie Chart
e.Graphics.FillPie(Brushes.Green, rect, 0, sweep)
e.Graphics.FillPie(Brushes.Red, rect, sweep, 360 - sweep)
' Draw Legend
e.Graphics.FillRectangle(Brushes.Green, freeLegend)
e.Graphics.FillRectangle(Brushes.Red, usedLegend)
' Add text
e.Graphics.DrawString("Capacity:", New Font("Tahoma", 10, FontStyle.Regular), Brushes.Black, New PointF(350, 230))
e.Graphics.DrawString("Used Space:", New Font("Tahoma", 10, FontStyle.Regular), Brushes.Black, New PointF(335, 275))
e.Graphics.DrawString("Free Space:", New Font("Tahoma", 10, FontStyle.Regular), Brushes.Black, New PointF(335, 300))
e.Graphics.DrawString(totalSpace.ToString("N") + " bytes", New Font("Tahoma", 10, FontStyle.Regular), Brushes.Black, New PointF(420, 230))
e.Graphics.DrawString(usedSpace.ToString("N") + " bytes", New Font("Tahoma", 10, FontStyle.Regular), Brushes.Black, New PointF(420, 275))
e.Graphics.DrawString(freeSpace.ToString("N") + " bytes", New Font("Tahoma", 10, FontStyle.Regular), Brushes.Black, New PointF(420, 300))
End If
End Sub
Private Sub drivesOnPc_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles drivesOnPc.SelectedIndexChanged
' Determine drive info for selected drive letter
LoadDriveInfo(drivesOnPc.Items(drivesOnPc.SelectedIndex).ToString)
' Redraw the pie chart
Me.Invalidate()
End Sub
Private Sub LoadDriveInfo(ByVal driveLetter As String)
' Use the DriveInfo class to obtain information on drives.
' Drive name must be either an upper or lower case letter from 'a' to 'z'.
' You can not use this method to obtain information on drive names that are null or use UNC (\\server\share) paths.
Dim driveInfo As System.IO.DriveInfo
' Check for valid drive names
Try
driveInfo = New System.IO.DriveInfo(driveLetter)
Catch ex1 As ArgumentNullException
MessageBox.Show("The drive letter can not be null./n/r" + ex1.Message, "Drive Letter error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return
Catch ex2 As ArgumentException
MessageBox.Show("The drive letter must be in the range of a-z./n/r" + ex2.Message, "Drive Letter error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return
End Try
Me.driveName.Text = driveInfo.Name
' Some drives do not provide all of the info
' have to trap for exceptions and just move on to the next drive
Try
If driveInfo.VolumeLabel.Length > 0 Then
Me.driveVolumeLabel.Text = driveInfo.VolumeLabel
Else
Me.driveVolumeLabel.Text = "None"
End If
Me.driveFormat.Text = driveInfo.DriveFormat
totalSpace = driveInfo.TotalSize
freeSpace = driveInfo.TotalFreeSpace
usedSpace = totalSpace - freeSpace
sweep = 360.0F * freeSpace / totalSpace
isSpaceInfoAvailable = True
Catch
Me.driveVolumeLabel.Text = "Not available"
Me.driveFormat.Text = "Not available"
isSpaceInfoAvailable = False
End Try
Me.driveType.Text = driveInfo.DriveType.ToString
Me.driveRootDirectory.Text = driveInfo.RootDirectory.ToString
dirInfo = driveInfo.RootDirectory
If driveInfo.IsReady = True Then
Me.driveReadyStatus.Text = "Drive is Ready"
Else
Me.driveReadyStatus.Text = "Drive is NOT Ready"
End If
End Sub
Private Function ConvertBytesToMB(ByVal bytes As Int64) As String
Dim mb As Long = bytes / 1048576
Return mb.ToString("N")
End Function
Private Function ConvertBytesToGB(ByVal bytes As Int64) As String
Dim gb As Long = bytes / 1073741824
Return gb.ToString("N")
End Function
Private dirInfo As DirectoryInfo
Private totalSpace As Long
Private freeSpace As Long
Private usedSpace As Long
Private sweep As Single
Private isSpaceInfoAvailable As Boolean
End Class

29
DriveInfo/입력폼/Frm_RenameFile.Designer.vb generated Normal file
View File

@@ -0,0 +1,29 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_RenameFile
Inherits System.Windows.Forms.Form
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
components = New System.ComponentModel.Container
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Text = "Frm_RenameFile"
End Sub
End Class

3
DriveInfo/입력폼/Frm_RenameFile.vb Normal file
View File

@@ -0,0 +1,3 @@
Public Class Frm_RenameFile
End Class