vCard-Datei importieren *.vcf

\’ ***************** Bitte den Path zu den VCF Dateien anpassen !!!! ****************

\’ Dieses Script liest alle Groupwise VCF Dateien im \”VCFFolder\” ein und legt gleichnahmige Unterverz.
\’ an und exportiert darin die einzelnen VCF Dateien

Const ForReading = 1
DIM VCSFile , objNewVCSFile
Dim Line , NewFile, path
Dim fso1, f, f1, fc, s
DIM OK , MSGpath

OK=False
Zaehler=0

\’______________________________

VCFFolder=\”d:\\temp\\\”

\’________________________________

Set fso1 = CreateObject(\”Scripting.FileSystemObject\”)
Set f = fso1.GetFolder(VCFFolder)
Set fc = f.Files
For Each f1 in fc

If instr(lcase(f1.name),\”.vcf\”) then
Filename=f1.name
Start
end if

Next

If OK=True then

call MsgBox(\”Die *.VCF Dateien liegen in den Verzeichnissen : \”+ chr(13) + Left(MSGpath,LEN(MSGPATH)-5) + chr(13) + \”und können mit Outlook importiert werden\”,65,\”Mitteilung\”)

end if

Sub start()
path=Left(Filename,Len(Filename)-4)

VCSFile = VCSArray()

Set Verz = CreateObject(\”Scripting.FileSystemObject\”)

If Not Verz.FolderExists(vcffolder+Path) then
Set ts = Verz.CreateFolder(VCFFolder+Path)
MSGpath=MSGpath + Path + \” und \”
For Each Line in VCSFile

If InStr(Line,\”BEGIN:VCARD\”) then
NewFile=True
Zaehler=zaehler+1
Set objFSO = CreateObject(\”Scripting.FileSystemObject\”)
File=vcffolder+Path+\”\\\”+Path+CStr(zaehler)+\”.vcf\”
Set objNewVCSFile = objFSO.CreateTextFile(File, True, False)
end if

if InStr(Line,\”END:VCARD\”) then
NewFile=False
objNewVCSFile.Writeline(line)
objNewVCSFile.close
end if

If NewFile=True then
objNewVCSFile.Writeline(line)
OK=true
END IF

Next
else
call MsgBox(\”Das Verzeichniss : \”+Path + \” ist schon vorhanden. Bitte dieses vorher löschen\”,65,\”Fehler\”)

end if

end sub

Function VCSArray()
Dim fso, ts, s, lines, FileArray
Const ForReading = 1

Set fso = CreateObject(\”Scripting.FileSystemObject\”)
Set ts = fso.OpenTextFile(Filename, ForReading)
s = ts.ReadAll
ts.Close

VCSArray=split(s, vbNewLine, -1,1)
End Function