Opprette , redigere, flytte , kopiere og slette er vanlige handlinger utført i et program som behandler filene . Søknader kan motta en fil fra en ekstern kilde, for eksempel e-post eller et annet program , kan du lese gjennom filen og utføre noen form for handling som å sette inn denne informasjonen i en database , og deretter flytte eller kopiere filen til et annet sted , noe som indikerer at filen allerede er behandlet. Windows-operativsystemet har en innebygd API for å håndtere alle de nevnte fil - prosessering funksjoner . Instruksjoner
en
Opprett en ny Standard EXE -prosjekt i Visual Basic. Legg Microsoft Scripting Runtime til prosjektet ved å velge " Prosjekt ", " Referanser ", " Microsoft Scripting Runtime " og klikke " OK " for å lagre og lukke skjermen .
2
Opprett en ny FileScripting objekt ved erklære en variabel av type " Scripting.FileScriptingObject . " Koden bør ligne : en
Dim oFile som New Scripting.FileScriptingObject
p Dette kodelinje vil definere variabelen som heter " oFile " og opprette objektet som kan refereres i koden til følge.
3
ut om filen finnes ved koding " oFile.FileExists ( filepath )" der " filepath " er det fulle navnet og banen til filen . Resultatet av denne funksjonen er en sann eller falsk . Hvis resultatene er sant, da filen finnes, og du kan fortsette med kopi funksjon . Men hvis filen ikke finnes, bør du kode noen form for feilbehandling.
4
Kopier filen som er angitt i variabelen " filepath " til en ny posisjon ved koding denne linjen " oFile.CopyFile filepath , newloc " der" newloc " er banen til den nye plasseringen . Et eksempel på den nye plasseringen ville være " C : \\ CopiedFiles " eller "D : \\ Backup. " Filnavnet vil forbli den samme i den nye mappen.
5
Kontroller at filen har blitt kopiert av igjen ved hjelp av " FileExists " metoden. For å kontrollere at den angitte filen i " filepath " variable fikk kopiert til plasseringen som er angitt i " newloc " variable , være sikker på at du har lagret den enkelte filnavnet til en egen variabel . For eksempel koden " oFile.FileExists ( newloc & filename) " vil returnere SANN hvis filnavnet i "filnavn" ble kopiert til den nye mappen .
