Bonsoir,
Grâce à la réponse de Kristoff, j'ai écrit un script qui permet de décomposer le contenu du fichier contacts.vcf en un fichier par contact. Il faut placer le fichier dans le répertoire suivant C:\temp.
Ensuite copier le contenu de ce code dans un fichier texte et l'enregistrer en tant que contact.vbs :
' Auteur : Nightmare974
' date de création : 3/09/2010
' Descriptif : Déconpose un fichier, au format vcf, contenant plusieurs contacts
wscript.echo "Lancement du programme"
dim filesys, text, readfile,contents,i, rep
i=1
set filesys = CreateObject("Scripting.FileSystemObject")
set readfile = filesys.OpenTextFile("C:\temp\contacts.vcf", 1, false)
rep = "C:\temp\contacts"
if not filesys.FolderExists(rep) then
filesys.CreateFolder(rep)
End If
do while readfile.AtEndOfStream=false
contents = readfile.ReadLine
if instr(contents,"BEGIN:VCARD") then
set un_contact = filesys.OpenTextFile(rep&"\contact_"&i&".vcf", 2, true)
end if
un_contact.writeline(contents)
if instr(contents,"END:VCARD") then
un_contact.close
i=i+1
end if
loop
readfile.close
wscript.echo "fin du programme"
Et voila, cela peut permettre aux personnes qui passe d'un sony à nokia, en utilisant PC suite, on peut copier tous les fichiers vcf créé dans le téléphone.
Bonne soirée.
Le webmaster du cours Julie (
http://www.le-cours-julie.fr)
j'ai le m^m problème avec w595 .impossible d'ouvrir les fichiers de contact .le soucis c'est que je ne connais pas grand chose a cela et ne suis pas capable de modifier une extension .pauvre de moi.
salutations
Merci !