Skapa , redigera , flytta , kopiera och ta bort är vanliga åtgärder som utförs i ett program som hanterar filer . Ansökningar kan ta emot en fil från en extern källa, t.ex. e-post eller annat program , läsa igenom filen och utför någon typ av åtgärd som sätter denna information i en databas och sedan flytta eller kopiera filen till en annan plats , vilket indikerar att filen redan har bearbetats. Windows operativsystem har en inbyggd API för att hantera alla de ovan nämnda fil - bearbetning funktioner . Instruktioner
1
Skapa ett nytt Standard-EXE- projekt i Visual Basic . Lägg Microsoft Scripting Runtime till projektet genom att välja " projekt", "Referenser ", " Microsoft Scripting Runtime " och klicka på " OK " för att spara och stänga fönstret .
2
Skapa en ny FileScripting objekt genom deklarera en variabel av typen " Scripting.FileScriptingObject . " Koden ska se ut liknande:
Dim OFile som New Scripting.FileScriptingObject
Denna kodrad kommer att definiera variabeln " OFile " och skapa objektet som kan hänvisas till i koden för att följ . Addera 3
Kontrollera om filen finns genom kodning " oFile.FileExists ( filepath ) " där " filepath " är det fullständiga namnet och sökvägen till filen . Resultatet av denna funktion är ett sant eller falskt. Om resultaten är sant , då filen finns och att du kan fortsätta med kopieringsfunktionen . Men om filen inte finns , bör du koda någon typ av felhantering .
4
Kopiera den fil som anges i variabeln " filepath " till en ny plats genom att koda denna linje " oFile.CopyFile filepath , newloc " där " newloc " är sökvägen till den nya platsen . Ett exempel på den nya platsen skulle vara " C: \\ CopiedFiles " eller "D : \\ Backup . " Filnamnet kommer att förbli densamma i den nya mappen .
5
Kontrollera att filen har kopierats genom att återigen använda " FileExists " metoden . För att kontrollera att den fil som anges i " filepath " variabel fick kopieras till den plats som anges i " newloc " variabel , vara säker på att du har sparat den enskilde filnamnet till en separat variabel . Till exempel koden " oFile.FileExists ( newloc & filnamn ) " returnerar sant om filnamnet i " filnamn " framgångsrikt kopieras till den nya mappen .
