[windows ce 4.2] Pb creation fichier

**JulienRenner** · 31/08/2006, 11h16

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**ced600** · 31/08/2006, 12h50

Personnellement, lorsque je fait un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**SfJ5Rpw8** · 31/08/2006, 13h31

Envoyé par cedric600

Personnellement, lorsque je fait un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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 ...

**ced600** · 31/08/2006, 14h11

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.

**JulienRenner** · 31/08/2006, 14h31

Merci de vos réponse
j'ai la confirmation de ce que je pensais
je vais voir le pack
Julien

**JulienRenner** · 01/09/2006, 10h46

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 ...

Julien

**simonlartiste** · 28/12/2007, 15h38

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

**JulienRenner** · 28/12/2007, 15h47

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

**ced600** · 28/12/2007, 16h33

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

ou bien encore ceci :

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.

**simonlartiste** · 31/12/2007, 11h29

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?

**simonlartiste** · 03/01/2008, 12h26

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

**ced600** · 03/01/2008, 12h31

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

**simonlartiste** · 03/01/2008, 13h34

Slt et merci pour la rapidité de ta reponse, cependant le code n est pas le souci car il fonctionne tres bien en local

**simonlartiste** · 03/01/2008, 14h03

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

**ced600** · 03/01/2008, 14h08

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"

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

**simonlartiste** · 03/01/2008, 14h23

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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>

[windows ce 4.2] Pb creation fichier

VBScript

Discussions similaires

Partager

Partager