dotNETportal.cz

Ahoj mam takovej problem.Chci aby když smáčknu nějakej button tak to nakopirovalo soubor z jedny slozk do druhy.

 FileCopy("D:\pokus"), "C:\Counter-Strike 1.6\cstrike\config.cfg")

Normalne program spustim ale kdyz kliknu na button tak mi to napise

Access to the path 'D:\pokus' is denied.

Opravdu chcete kopírovat D:\pokus (složka) do C:\...\config.cfg (soubor)? File.Copy slouží ke kopírování souborů, viz dokumentace:

http://msdn.microsoft.com/en-us/library/...

Buď chcete kopírovat (rekurze) nebo přesunout složku (Directory.Move) nebo kopírovat nebo přesunout soubor (File.Copy, File.Move). Navíc, pokud existuje cílový soubor, potřebujete overload, který bere třetí parametr typu boolean, který značí, jestli se má cílový soubor přepsat. Váš cílový soubor nejspíše existuje, takže tento parametr nastavíte na true.

Edit: Za "D:\pokus" se Vám nejspíše vloudila nechtěná koncová závorka.

Možná jste chtěl

  FileCopy("C:\Counter-Strike 1.6\cstrike\config.cfg","D:\pokus\config.cfg")
  ' popř.
  FileCopy("C:\Counter-Strike 1.6\cstrike\config.cfg","D:\pokus\config.cfg", True)

FileCopy funguje takto: Kopíruj soubor(zdroj, cíl, přepsat existující)

No a když mam napsanou tu cestu v tzn

FolderBrowserDialog1.ShowDialog()
        TextBox1.Text = FolderBrowserDialog1.SelectedPath
        
        FileCopy("C:\Counter-Strike 1.6\cstrike\config.cfg", TextBox1.Text)

Tak mi to napise tohle : The target file "D:\pokus" is a directory, not a file.

Ja vim že je to složka,ale chci aby to do ní nakopírovalo ten soubor

Musíte si složit cílovou cestu z cílové složky a názvu původního souboru:

Dim originalFilePath = "C:\Counter-Strike 1.6\cstrike\config.cfg"
Dim targetFolder = "C:\pokus"
Dim targetFileName = "config.cfg" ' Nebo IO.Path.GetFileName(originalFilePath)
Dim targetFilePath = IO.Path.Combine(targetFolder, targetFileName)
IO.File.Copy(originalFilePath, targetFilePath)

V TextBox1.Text zřejmě máte "D:\pokus". Chybí jméno cílového souboru - musí se zadat, i když se shoduje se jménem souboru zdroje:

TextBox1.Text = "D:\pokus\config.cfg"