My.Computer.FileSystem.CopyDirectory(string, Destination + "\string", True)
Dim Source As String = "c:\MaSource" Dim Destination As String = "c:\MaDestination" Or tu fais: [code=vb] My.Computer.FileSystem.CopyDirectory(string, Destination + "\string", True)
Dim Source As String = "c:\MaSource" Dim Destination As String = "c:\MaDestination" My.Computer.FileSystem.CopyDirectory(Source, Destination)
'juste après ta: Public Class MainForm 'Tu mets tes variables en 'public' public gamename as string public path as string public savepath as string 'Et après ta sub Code database : Private Sub AaaaaRecklessDisregard() gamename = "Aaaaaarecklessdiscard" path=Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData)+"\AaaaaRecklessDisregard" savepath = MainForm.TextBox0.Text & "\Games\Aaaaaarecklessdiscard" End Sub
Dim path As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) + "\AaaaaRecklessDisregard"
Dim path As String = Application.StartupPath & "\AaaaaRecklessDisregard"
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question'MainForm Private Sub GetListButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GetListButton.Click For Each ??? in ??? If System.IO.Directory.Exists(path) = True Then ListBoxGames.Items.Add(gamename) End If Next end sub 'DatabaseForm Public Class Database_v2 Public gamename As String Public path As String Public savepath As String Private Sub Games() gamename = "Aaaaaarecklessdiscard" path = (Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) + "\AaaaaRecklessDisregard") savepath = MainForm.TextBox0.Text & "\Games\Aaaaaarecklessdiscard" gamename = "Alien Breed 3 : Descent" path = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) + "\My Games\UnrealEngine3\AlienBreed3DescentGame" savepath = MainForm.TextBox0.Text & "\Games\Alien Breed 3" End Sub
Private Sub GetListButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GetListButton.Click For Each ??? in ??? If System.IO.Directory.Exists(path) = True Then ListBoxGames.Items.Add(gamename) End If Next end sub
If System.IO.Directory.Exists(path) = True Then ListBoxGames.Items.Add(gamename) End If
je fais appelle à ces déclarations dans ma "MainForm"
Public gamename As String Public path As String Public savepath As String Sub Games() gamename = "5 Realms Of Cards" path = Environment.GetFolderPath(Environment.SpecialFolder.CommonDocuments) + "\SugarGames\5RealmofCards" savepath = MainForm.TextBox0.Text & "\Games\5 Realms Of Cards" gamename = "Aaaaaarecklessdiscard" path = (Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) + "\AaaaaRecklessDisregard") savepath = MainForm.TextBox0.Text & "\Games\Aaaaaarecklessdiscard" gamename = "Alien Breed 3 : Descent" path = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) + "\My Games\UnrealEngine3\AlienBreed3DescentGame" savepath = MainForm.TextBox0.Text & "\Games\Alien Breed 3" End Sub
j'ai actuellement 220 "path"
Public Path(220) as string