Pereiti prie turinio

Rekomenduojami pranešimai

Sveiki, nerandu niekaip, kaip reikia padaryti tarp visual basic mygtuką su kopijuojamų direktorijos katalogu. Randu, kaip failus kopijuoti, bet nerandu komandos direktorijos kopijavimu kodas atrodo paprastai.

 

Imports System.IO

Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If Not Directory.Exists("E:\Testavimas\" & TextBox2.Text) = True Then
           Directory.CreateDirectory("E:\Testavimas\" & TextBox2.Text)
           Label3.Text = "Katalogas Sukurtas"
           FileCopy(OpenFileDialog1.FileName, "E:\Testavimas\" & TextBox2.Text & "\" & TextBox2.Text)
           Label3.Text = "Dokumentas perkopijuotas"
       Else
           If My.Computer.FileSystem.FileExists("E\Testavimas\" & TextBox2.Text & "\" & TextBox2.Text) = True Then
               FileCopy(OpenFileDialog1.FileName, "E:\Testavimas\" & TextBox2.Text & "\" & TextBox2.Text)
               Label3.Text = "Failas sukurtas!"
           Else
               Label3.Text = "Failas jau yra!"
           End If
       End If
   End Sub

   Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged


   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

       OpenFileDialog1.FileName = Nothing
       OpenFileDialog1.ShowDialog()
       If Not OpenFileDialog1.FileName = Nothing Then
           TextBox1.Text = OpenFileDialog1.FileName
       End If

   End Sub
End Class

Nuoroda į pranešimą
Dalintis kituose puslapiuose
  • po 2 savaičių...

Nebereikia, jau radau tai

 

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim sourceDir As String = "direktorija" ' Aprašoma failo pavadinimas iš kur
       Dim LocalAppData As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
       MessageBox.Show(LocalAppData)
       Dim backupDir As String = (LocalAppData) ' Aprašomas failo pavadinimas į kur 
       Try ' programos pradžia
           'Apršoma ExeLis kad bus visa komandinė eilutė 
           Dim lnkList As String() = Directory.GetFiles(sourceDir, "*Balansas Centras (Realus).lnk")
               'aprašoma f kad kiekvienas rašomas į f bus exelist 
           For Each f As String In lnkList
               '. fname kaip f.substring 
               Dim fName As String = f.Substring(sourceDir.Length + 1)
               Try
                   File.Copy(Path.Combine(sourceDir, fName), Path.Combine(backupDir, fName))

               Catch copyError As IOException
                   MsgBox(copyError.Message)
               End Try
           Next
       Catch dirNotFound As DirectoryNotFoundException
           MsgBox(dirNotFound.Message)
       End Try
   End Sub

Redagavo SkyDream
Nuoroda į pranešimą
Dalintis kituose puslapiuose

Prisijunkite prie diskusijos

Jūs galite rašyti dabar, o registruotis vėliau. Jeigu turite paskyrą, prisijunkite dabar, kad rašytumėte iš savo paskyros.

Svečias
Parašykite atsakymą...

×   Įdėta kaip raiškusis tekstas.   Atkurti formatavimą

  Only 75 emoji are allowed.

×   Nuorodos turinys įdėtas automatiškai.   Rodyti kaip įprastą nuorodą

×   Jūsų anksčiau įrašytas turinys buvo atkurtas.   Išvalyti redaktorių

×   You cannot paste images directly. Upload or insert images from URL.

Įkraunama...
  • Dabar naršo   0 narių

    Nei vienas registruotas narys šiuo metu nežiūri šio puslapio.

  • Prisijunk prie bendruomenės dabar!

    Uždarbis.lt nariai domisi verslo, IT ir asmeninio tobulėjimo temomis, kartu sprendžia problemas, dalinasi žiniomis ir idėjomis, sutinka būsimus verslo partnerius ir dalyvauja gyvuose susitikimuose.

    Užsiregistruok dabar ir galėsi:

    ✔️ Dalyvauti diskusijose;

    ✔️ Kurti naujas temas;

    ✔️ Rašyti atsakymus;

    ✔️ Vertinti kitų žmonių pranešimus;

    ✔️ Susisiekti su bet kuriuo nariu asmeniškai;

    ✔️ Naudotis tamsia dizaino versija;

    ir dar daugiau.

    Registracija trunka ~30 sek. ir yra visiškai nemokama.

  • Naujausios temos

  • Karštos temos

×
×
  • Pasirinkite naujai kuriamo turinio tipą...