Miten toimii CopyFile?
Yritän kopioida tiedoston asemalta N: asemalle C:, mutta tiedosto ei siirry. Olen testaillut komentoa, ja saanut sillä tiedoston nimen muuttumaan [CopyFile vanhanimi, uusinimi] mutta alan jo epäillä, että se ei kuitenkaan kopioi tiedostoa eri paikkaan.
N: on siis verkkoasema ja C: on paikallinen.
CopyFile
Re: CopyFile
Itse juuri testailin kyseistä toimintoa ja hyvin tuntui toimivan tiedoston kopioiminen C-asemalta ulkoiselle USB-kovolle (F:) ja muuallekin. Sellaisen kyllä huomasin, että kopiointi ei onnistu jos yrittää kopioida tiedoston kansioon, jota ei ole vielä olemassa. Eli jos niin haluaa, kansio(t) pitää luoda ensin.
EDIT: tässä vielä selvennyksenä, miten copyfile toimi minulla ihan niin kuin pitääkin:
EDIT: tässä vielä selvennyksenä, miten copyfile toimi minulla ihan niin kuin pitääkin:
Code: Select all
CopyFile "c:\program files\coolbasic\media\cow.bmp", "f:\apina.bmp"
Re: CopyFile
Ongelma ratkesi. Kun lisäsin kohdekansion nimen perään tiedostonimen (+fl$), niin ohjelma alkoi toimia.
Panenpa tähän selventävän esimerkin:
ChDir "N:\Saha\Turva"
Repeat
sana$=Input("? ")
DrawScreen
Until KeyHit(cbkeyreturn)
ClearKeys
StartSearch
Repeat
fl$=FindFile()
If fl$="" Then Exit
If Left(fl$,5)=Left(sana$,5) Then CopyFile fl$, "c:\saha\"+fl$
Forever
WaitKey
Tämän pätkän tarkoitus on hakea verkosta tiedostoja sellaiseen kansioon, johon työstökoneella on käyttöoikeus. (Työstökoneen käyttöjärjestelmä on DOS, eikä sitä saa suoraan liitettyä Windows-verkkoon!)
Panenpa tähän selventävän esimerkin:
ChDir "N:\Saha\Turva"
Repeat
sana$=Input("? ")
DrawScreen
Until KeyHit(cbkeyreturn)
ClearKeys
StartSearch
Repeat
fl$=FindFile()
If fl$="" Then Exit
If Left(fl$,5)=Left(sana$,5) Then CopyFile fl$, "c:\saha\"+fl$
Forever
WaitKey
Tämän pätkän tarkoitus on hakea verkosta tiedostoja sellaiseen kansioon, johon työstökoneella on käyttöoikeus. (Työstökoneen käyttöjärjestelmä on DOS, eikä sitä saa suoraan liitettyä Windows-verkkoon!)