نکات، ایده ها و ترفندهای کوچک برنامه نویسی در vb.net

[ghafoori]

https://barnamenevis.org/showpo...3&postcount=84

Imports System.IO



'//To create a directory

        Directory.CreateDirectory("C:\MyNewDir")



        '//To move a directory

        Directory.Move("C:\MyNewDir", "C:\MyMovedDir")



        '//To delete a directory

        Directory.Delete("C:\MyMovedDir")



        '//To Delete a directory recursively

        Directory.Delete("C:\MyNewDir", True)



        '//To Delete a File

        File.Delete("C:\MyFile.Txt")



        '//To Move a File

        File.Move("C:\MyFile.Txt", "C:\MyOtherDir\MyFile.Txt")



        '//To Copy a file

        File.Copy("C:\MyFile.Txt", "C:\MyOtherDir\MyFile.Txt")



        '//To copy to a different file name is also possible

        File.Copy("C:\MyFile.Txt", "C:\MyOtherDir\MyNewFileName.Txt")



        '//To get information about a file, like the length

        '//You can also get the extension, directory, LastAccessedtime, 

        '//LastModifiedTime, wether the file exists or not, the creation date,

        '//attributes of the file etc, from the FileInfo class

        Dim FI As FileInfo = New FileInfo("C:\MyFile.Txt")

        Console.WriteLine("File size of MyFile.Txt: {0}", FI.Length)



        '//copy example

        Dim DateTemp As String = DateTime.Now.ToString

        File.Copy("P:\PRD\Products\AHM\prod.CD\Database\da  ta.mdb", "P:\PRD\Products\AHM\prod.CD\Database\" + DateTemp + "-data.mdb")

[ghafoori]

https://barnamenevis.org/showpo...3&postcount=86


فایلها را در مسیرC:\CopiedFolder کپی میکند :
کد:

Imports System.IO





Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

        Dim fbd As FolderBrowserDialog = New FolderBrowserDialog()

        fbd.Description = "Find Folder to Copy."

        If fbd.ShowDialog() = DialogResult.OK Then



            Dim files() As String = Directory.GetFiles(fbd.SelectedPath)

            Directory.CreateDirectory("C:\CopiedFolder")

            Dim i As Integer

            For i = 0 To files.Length



                Dim tmpFileExt As String = Path.GetExtension(files(i))

                Dim tmpFileName As String = Path.GetFileNameWithoutExtension(files(i))

                File.Copy(files(i), "C:\CopiedFolder\" + tmpFileName + tmpFileExt, True)

            Next

        End If

    End Sub