ASP.NET学习网|ASP.NET教程|ASP.NET MVC|ASP.NET 源码|VS2010教程|ASP.NET视频教程

''判断目标目录是否存在如果不存在则新建          
            FilesPath = txtFiles.Text
            If Directory.Exists(FilesPath) = False Then
                Directory.CreateDirectory(FilesPath)
            End If

   ‘需要删除的文件夹路径

FilesDeletePath  

   ''删除文件夹的所有文件

My.Computer.FileSystem.DeleteDirectory(FilesDeletePath, FileIO.DeleteDirectoryOption.DeleteAllContents)

'删除空目录

Directory.Delete()        

'隐藏文件夹

SetAttr(FilesPath , vbHidden)    

''动态装载图片

'PicImage ____PictureBox控件名

Dim fileExtension As String = System.IO.Path.GetExtension(TempFilePath).ToLower()
                    If fileExtension = ".gif" Or fileExtension = ".jpg" Or fileExtension = ".png" Or fileExtension = ".bmp" Then
                        Try
                            MySipDImage = New Bitmap(TempFilePath)
                            MyBipDImage = New Bitmap(MySipDImage, PicImage.Width, PicImage.Height)
                            PicImage.Image = MyBipDImage
                            PicImage.Show()
                        Catch ex As Exception
                        Finally

                        End Try
                    Else
                        MsgBox("暂时不支持显示此类型图片")
                    End If

'拷贝文件

FilesCopys('源文件地址,'目的地址')

''获取当前路径的上一级目录

Dim FilesPath As String = Directory.GetParent(FilesPath ).ToString()

''打开文件夹并显示到最顶端

System.Diagnostics.Process.Start(FilesPath , AppWinStyle.NormalFocus)   

''获取当前目录下的所有文件

dim bbFiles as string () = Directory.GetDirectories(FilesPath )

'关闭进程
                            Dim instance As Process
                            myProcesses = Process.GetProcessesByName("Notepad")
                            For Each instance In myProcesses
                                instance.CloseMainWindow()
                                instance.Close()
                            Next

Or

'ProcessesName 进程名如上："Notepad"

                            For Each myProcess As System.Diagnostics.Process In myProcesses
                                If myProcess.ProcessName.ToUpper() = ProcessesName Then
                                    myProcess.Kill()
                                End If
                            Next