Hvordan sikre at en fil har blitt kopiert i VB6

Opprette, redigere, flytte, kopiere og slette er vanlige handlinger utført i et program som behandler filer. Søknader kan motta en fil fra en ekstern kilde, for eksempel e-post eller et annet program, må du lese gjennom filen og utføre noen form for handling, for eksempel å sette inn denne informasjonen i en database, og deretter flytte eller kopiere filen til et annet sted, noe som indikerer at filen har allerede blitt behandlet. Operativsystemet Windows har en innebygd API for å håndtere alle de nevnte fil-prosessering funksjoner.

Bruksanvisning

1 Opprett et nytt Standard EXE-prosjekt i Visual Basic. Legg Microsoft Scripting Runtime til prosjektet ved å velge "Project", "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 skal ligne:

Dim oFile som New Scripting.FileScriptingObject

Dette kodelinje vil definere variabelen som heter "oFile" og skape objekt som kan refereres i koden til følge.

3 Finn ut om filen finnes ved koding "oFile.FileExists (filbane)" hvor "filbane" er det fulle navnet og banen til filen. Resultatet av denne funksjonen er en sann eller usann. Hvis resultatene er sant, da filen finnes, og du kan fortsette med kopifunksjonen. Men hvis filen ikke finnes, bør du kode noen form for feilbehandling.

4 Kopier filen spesifisert i variabelen "filbane" til en ny plassering ved koding denne linjen "oFile.CopyFile filbane, newloc" hvor "newloc" er banen til det nye stedet. Et eksempel på den nye plasseringen vil være "C: \ CopiedFiles" eller "D:. \ Backup" Filnavnet vil forbli den samme innenfor den nye mappen.

5 Kontroller at filen har blitt kopiert av igjen ved hjelp av "FileExists" metoden. Hvis du vil kontrollere at filen er angitt i "filbane" variable fikk kopiert til angitt i "newloc" variable sted, være sikker på at du har lagret den enkelte filnavnet til en egen variabel. For eksempel koden "oFile.FileExists (newloc & filnavn)" vil returnere SANN hvis navnet filen i "filnavn" ble kopiert til den nye mappen.