Try

            ' 先判断文件是否存在。

            If Not File.Exists(TextBox4.Text) Then

                File.CreateText(TextBox4.Text) '单纯创建文件一般不常用，正常情况下是创建文件然后进行读写操作

                'System.IO.File.Create(TextBox4.Text)

            End If

        Catch ex As Exception

            MessageBox.Show(ex.Message)

            Exit Sub

        End Try

        Try

            ' 先建立目录以便用于后续的删除示范。

            ' If Not Directory.Exists("D:\网易") Then

            If Not Directory.Exists(TextBox5.Text) Then

                Directory.CreateDirectory(TextBox5.Text) '如果目录不存在则创建目录

            End If

            ' 启动 Windows 资源管理器。

            Process.Start("explorer.exe", TextBox5.Text)

        Catch ex As Exception

            MessageBox.Show(ex.Message)

            Exit Sub

        End Try

 System.IO.File.Create(Path)'创建文件

 System.IO.File.CreateText(Path)'创建文件

 System.IO.File.Copy(Path,targetPath)      '复制到新位置,不允许覆盖现有文件        也可以'FileCopy(TextBox4.Text, "C:" & "\" & file_name(UBound(file_name)))

 System.IO.File.Move(SourceFileName, DestFileName)

 System.IO.File.Delete(Path)

'追加

 System.IO.File.AppendText

'替换

 System.IO.File.Replace

        Directory.CreateDirectory(Path) '创建目录

        Directory.Move(str1, str2)'移动目录

        Directory.Delete(Path)'删除目录