[windows ce 4.2] Pb creation fichier

Version imprimable

Bonjour,

je developpe une petite application comportant du vbscript sous xindows CE 4.2.
Sous windows 2000, pas de probleme
quand je passe sous windows ce 4.2 impossible de créer un fichier avec la commande :

Code:
Code:

1 2 3 4 5 6 7 8 9 Sub creerFichierLog() Dim FSys, MonFic Set FSys = CreateObject("Scripting.FileSystemObject") If Not FSys.FileExists("C:\Documents and Settings\Administrateur\Mes documents\GPS_BDX1 My Documents\z.log") Then Set MonFic = FSys.CreateTextFile("C:\Documents and Settings\Administrateur\Mes documents\GPS_BDX1 My Documents\z.log") Set MonFic = Nothing End If Set FSys = Nothing End Sub
il y a une erreur au niveau de la commande :

Set FSys = CreateObject("Scripting.FileSystemObject")

J'ai lu quelque part que windows ce n'acceptait pas l'activeX Scripting

est ce que quelqun a une autre solution pour créer un fichier texte ?

Merci d'avance

Cordialement

Julien R.

Personnellement, lorsque je fait un

Code:

Set NomObjet = ...

, je n'ai pas au préalable déclaré "NomObjet" par un "Dim". Peut être que ton erreur viens de la.

Ce qui donnerais sur ton code :
Code:

1 2 3 4 5 6 7 8 Sub creerFichierLog() Set FSys = CreateObject("Scripting.FileSystemObject") If Not FSys.FileExists("C:\Documents and Settings\Administrateur\Mes documents\GPS_BDX1 My Documents\z.log") Then Set MonFic = FSys.CreateTextFile("C:\Documents and Settings\Administrateur\Mes documents\GPS_BDX1 My Documents\z.log") Set MonFic = Nothing End If Set FSys = Nothing End Sub

31/08/2006, 13h31
SfJ5Rpw8

Citation:

Envoyé par cedric600

Personnellement, lorsque je fait un

Code:

Set NomObjet = ...

, je n'ai pas au préalable déclaré "NomObjet" par un "Dim". Peut être que ton erreur viens de la.
...

ben non c'est mieux de la déclarer...

le probléme est la :

Citation:

Envoyé par JulienRenner

...
Sous windows 2000, pas de probleme
quand je passe sous windows ce 4.2 impossible de créer un fichier avec la ...
31/08/2006, 14h11
ced600

Ok dans ce cas je declarerais mes variables à l'avenir.

J'ai trouvé sur un site que windows ce 4.2 ne possédais pas l'objet "FileSytemObject". La seul parade est d'intaller ActiveX Pack1.
Voici le lien du site où j'ai trouvé l'information :
http://www.newobjects.com/product.as...y=63&Story=317

Il faut descendre dans le texte jusqu'à voir :
"If you are new to Windows CE."

Au niveau de "COM specifics" il traite du problème de l'absence de FileSystemObject.
31/08/2006, 14h31
JulienRenner

Merci pour la réponse

Merci de vos réponse
j'ai la confirmation de ce que je pensais
je vais voir le pack
Julien
01/09/2006, 10h46
JulienRenner

ça marche très bien

Merci encore pour la réponse
j'ai installé le pack et la création de fichier fonctionne très bien
il y a beaucoup d'autres fonctions à explorer ...
:lol:

Julien
28/12/2007, 15h38
simonlartiste

ActiveX Windows CE

Slt Julien,

sans le savoir tu viens de me faire enormement plaisir, il y a donc possiblités d utiliser le scripting.filesystemobject sous windows CE (5.0 dans mon cas), je suis allé sur le site AXpack et j ai telelchargé le pack, seulement maintenant mon pb c que je n arrive pas à l installer sur mon windows CE, j ai telechargé le .exe, je l ai mis sur la machine et lorsque je veux l executer il me dit que ce n est pas un executable pour pocket, une idée?

D'avance merci
28/12/2007, 15h47
JulienRenner

Installation

Salut Simon,

Il me semble si je me rappele bien qu'il faut installer le pack sur ton pc d'abord et ensuite l'installation sur le pocket se fait depuis ton pc par l'intermédiaire de la synchronisation...
tiens moi au courant.
Julien
28/12/2007, 16h33
ced600

Perso j'aurais essayer les cab dans "Pocket PC CAB files" ou "AXPack1"

ou bien encore ceci :

Citation:

Binaries for various platforms
These archives contain the binary files only. They are intended mostly for the developers who need to integrate them into the setup packages of their applications. Through nwMicroHost.exe the pack can be manually installed on any compatible device - unpack all files in an empty directory (can be on a memory card). Run nwMicroHost.exe and use "Register COM DLL" from the Tools menu to register all the DLL you are going to use.
Note: There is currently no need of special versions for Windows CE 5.0 and later. The binaries for CE.NET 4.2 work fine on Windows CE 5.0 and later. To keep the number of the binaries as small as possible we will publish special versions for newer Windows CE versions only if they need special features not found in the previous OS versions.
31/12/2007, 11h29
simonlartiste

AXPack

Slt a tous,

Perso j ai essayé d extraire le .cab sur mon windows CE, le truc s est bien mis en route il a extrait et tout mais ca n a rine changé, toujours pas droit au scripting.filesystemobject. Je pense que je vais essayer la deuxieme solution avec le nwmicrohost.exe, d apres ce que j ai compris je l execute sur une sd card et je fais les manip demandées et ca devrait fonctionner c ca?
03/01/2008, 12h26
simonlartiste

Windows CE

Slt Julien,

je viens d installer le pack sur une becane qui etait synchronisée avec mon windows CE 4.2 cette fois, qqchose s est bien passé sur mon lecteur mais je n arrive toujours pas à utiliser le filesystemobject en javascript, une idée? toutes les options du navigateurs sont ok (scripting accepté),

d avance merci
03/01/2008, 12h31
ced600

Poste le code que tu as fait, quelque fois qu'il y aurait une erreur sur celui-ci.

En même temps si c'est du javascript je ne serais pas d'une grande aide :?
03/01/2008, 13h34
simonlartiste

code

Slt et merci pour la rapidité de ta reponse, cependant le code n est pas le souci car il fonctionne tres bien en local
03/01/2008, 14h03
simonlartiste

une petite avancée

J arrive à lancer scripthost sur le lecteur mais le souci c qu il narrive pas à me register les dll, il me dit que ca failed
03/01/2008, 14h08
ced600

Je ne connais pas trop les problème sur CE.
Tout ce que j'avais réussi à faire c'est trouver le liens, et ce uniquement grâce à de ma compétence level 2 : "Recherche sur Google" :mrgreen:

Bref désolé mais je ne vois pas d'où peut venir le problème. :(

encore une avancée

via les microhost.exe il m a executé un script vb qui a créer un fichier bin!! Yaouh ca veut bein dire qu il y a moyen. J ai mis ce script vb dans une page html mais ca ne marche pas! si qqun a des competences, qu il m explique pourquoi ca ne marche pas parceque moi je suis plus caler javascript,

d avance merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Demo</title>
<link rel="StyleSheet" href="style.css" type="text/css" media="screen" />
<script language="VBScript">
 var     cvtEmpty                =   0;
    var     cvtByte                 =   17;
    var     cvtInteger              =   2;
    var     cvtLong                 =   3;
    var     cvtFloat                =   4;
    var     cvtDouble               =   5;
    var     cvtBoolean              =   11;
    var     cvtCurrency             =   6;
    var     cvtDate                 =   7;
    var     cvtString               =   8;
    var     cvtSByte                =   16;
    var     cvtUInteger             =   18;
    var     cvtULong                =   19;
 
//var basepath = Host.RuntimeParameter("ScriptPath");
var basepath ="\";
function OnInput(s) {
    var sf = Host.CreateObject("newObjects.utilctls.SFMain");
    var f = sf.CreateFile(s);
    var r = Host.CreateObject("newObjects.utilctls.SFRecord");
    r.AddField("F1", cvtLong);
    r.AddField("F2", cvtString, 8);
    r.BindTo(f);
    r.Filter.unicodeText = false;
    r.ReBind();
    r.MoveFirst();
    for (var i = 1; i <= 10; i++) {
      Host.WriteLine(i);
      r("F1").Value = Math.random() * 10000
      r("F2").Value = ("Value " + i);
      r.Write();
    }
    r.UnBind();
    f.Close();
    Host.WriteLine("A file containing 10 records has been created.");
}
 
Host.SetInput(basepath + "rec1.bin");
Host.RequestInput("Output file");         
      </script>
</head>
<body>
 
 
</body>
</html>