Søg
Avatar billede accessconsult Nybegynder
08. november 2013 - 09:26 Der er 7 kommentarer og
1 løsning

Makro eller VBA kode der tjekker om csv-fil findes i mappe

Jeg har et Access program som eksporterer en CSV-fil til en given mappe.
Efterfølgende skal et økonomisystem importere data fra CSV-filen.
Hvis importen lykkedes slettes CSV-filen.
Hvis den ikke lykkedes forbliver filen i mappen. Hvis den forbliver i mappen må Access ikke lave en ny eksport.
Jeg har behov for en makro eller VBA kode, som fortæller om filen eksisterer i mappen.
Avatar billede hugopedersen Nybegynder
08. november 2013 - 10:07 #1
Hvis du Googler  vba file exists  så får du masser at se på,
men du også prøve at Google  Createobject("Scripting.FileSystemObject").FolderExists  da det er den funktion du bør bruge
Avatar billede minimadsens Nybegynder
08. november 2013 - 11:33 #2
Option Explicit
DIM fso   
Set fso = CreateObject("Scripting.FileSystemObject")

If (fso.FileExists("STI_HER")) Then
  WScript.Echo("Fandt filen!")
  WScript.Quit()
Else
  WScript.Echo("Filen kunne ikke findes!")
End If

WScript.Quit()


------
1. Kopier overstående.

2. Ret "STI_HER" til den aktuelle sti, for den fil du gerne vil tjekke.

3. Gem det i en tekst fil, omdøb den fra .txt til .vbs
Avatar billede minimadsens Nybegynder
08. november 2013 - 11:34 #3
Når du retter "STI_HER" skal du huske at lade de to "" blive.
Avatar billede kabbak Professor
08. november 2013 - 17:01 #4
Public Function FilExist()
If Dir("C:\test\data.csv") <> "" Then
MsgBox " filen eksisterer"
Else
MsgBox " filen eksisterer ikke "
End If
End Function
Avatar billede accessconsult Nybegynder
09. november 2013 - 13:36 #5
Til Kabbak:
Jeg vil gerne sætte koden ind, som en betingelse i en makro. Det vil sige at hvis filen ikke eksisterer, så skal den ikke køre en forespørgsel, som danner en ny csv-fil.
Jeg kan ikke se at jeg kan sætte en VBA-kode ind, som en betingelse i en makro.
Avatar billede kabbak Professor
10. november 2013 - 21:25 #6
det kan gøres på 2 måder

Public Function FilExist() As Boolean
If Dir("C:\test\data.csv") <> "" Then' fast navn
FilExist = True
Else
FilExist = False
End Function

Public Function FilExist(StiOgNavn) As Boolean
If Dir(StiOgNavn) <> "" Then' variabelt navn, som kommer med kaldet
FilExist = True
Else
FilExist = False
End Function
Avatar billede accessconsult Nybegynder
27. november 2013 - 07:58 #7
Tusind tak for hjælpen. Det virker.
Men hvordan giver jeg point til jer?
Avatar billede kabbak Professor
27. november 2013 - 14:56 #8
Jeg ligger lige et svar ;-))
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Access kurser
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser
Se alle Access kurser

Flere spørgsmål fra Access kategorien

Titel Indlæg Oprettet Seneste aktivitet
en word dotx fil stilles om til at blive gemt i skyen Af per2edb i Access 9 16/04/202620:11 21/04/202615:43
AI integreret i Access Af per2edb i Access 3 06/04/202610:42 06/04/202612:58
Autonummerering Af hlnviv i Access 2 06/03/202606:24 06/03/202607:48
stigende sortering på et Link felt Af hlnviv i Access 6 03/03/202613:18 04/03/202608:09
Access database udskriver ikke rammer korrekt Af Uvanga i Access 8 18/11/202500:24 18/11/202510:25
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 12:14 Ang udskrift Canon mb5050 Af made18 i Printere
I går 21:29 Vedr. Windows 11 version 26H2 Af ErikHg i Fri debat
I går 18:16 Tømme gammel PC for indhold, kan ikke tændes Af Mai i Andet software
01/1017:41 NVIDIA Geforce GTX 1060 6 GB som "snakker" Af dcedata1977 i Andet hardware
27/0916:43 Nomad Tracking Car Af fleknes i Apps til Android
White papers
Flere white papers »