Søg
Avatar billede aamodtod Nybegynder
28. juli 2002 - 20:19 Der er 3 kommentarer og
1 løsning

FSO: Gå igjennom alle txt filer i en mappe og skriv i annen TXT

Jeg har en mappe som ligger på følgene sted "c:\pib".
I denne mapppen motar jeg ca 100 txt filer, med forskjellige filnavn, man alle textfilene har samme format og alt er skrevet på en linje:
Gir Dere et eksmpel:

fil1.txt:
Ola;Normann;Osloveien 3;0506;Oslo
fil2.txt
Kari;Hansen;Stien 5;1400;ski

Og sånn forsetter det:

Jeg trenger en kode ("FSO"), til å gå igjennom alle mine text filer i mappen "pib" og skrive den øverste linjen i alle textfilene i en ny textfil som ligger her "c:\pib\data\datagrunnlag.txt.

Datagrunnlag.txt skal da se slik ut
Ola;Normann;Osloveien 3;0506;Oslo
Kari;Hansen;Stien 5;1400;ski

Når dette er gjort vil jeg flytte alle filene i mappen "pib" til følgene sted "c:\pib\old"

Er det noen som vil lage denne koden for meg?

Hilsen

Odd
Avatar billede kedde65 Praktikant
28. juli 2002 - 20:36 #1
Giv mig lige 10 minutter så har du den.

VH CK
Avatar billede aamodtod Nybegynder
28. juli 2002 - 20:41 #2
OK
Avatar billede kedde65 Praktikant
28. juli 2002 - 20:45 #3
Her kommer den så

Private Sub Command1_Click()
    Dim fso As FileSystemObject, dest As TextStream, sourceDir As Folder, fil As File
    Set fso = New FileSystemObject
   
    Set dest = fso.GetFile("C:\pib\data\datagrundlag.txt").OpenAsTextStream(ForAppending)
   
    Set sourceDir = fso.GetFolder("C:\pib\")
   
    For Each fil In sourceDir.Files
        dest.WriteLine fil.OpenAsTextStream(ForReading).ReadLine
        fil.Move "c:\pib\old\"
    Next
   
    Set dest = Nothing
    Set sourceDir = Nothing
    Set fso = Nothing
End Sub


VH CK
Avatar billede aamodtod Nybegynder
28. juli 2002 - 20:47 #4
Det fungerte, akkurat som jeg ønsket her er dine Point.
Takk for hjelpen

MVH
Odd
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
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 går 20:40 Access udskrift mangler del af ramme om post. Af Uvanga i Access
I går 12:36 nulstille Samsung tablet T-580 Af fase i Tablet
23/1017:19 Kender I "Dropbox" ? Af Ikke-ekspert i Andet software
23/1016:28 Indsæt en kort video i Outlook 2024 Af ErikHg i E-mail programmer
22/1019:20 Hvor kan man finde en god bærbar computer? Af Strawberry i PC
White papers
Flere white papers »