AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 10 11 06:59:16
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : Je suis désespéré et au bord du suicide :( [ Archives Visual Basic / J'AI BESOIN D'AIDE !!!! :) ] (ZBob)

samedi 4 mai 2002 à 00:14:19 | Je suis désespéré et au bord du suicide :(

ZBob
Voilà le pb :


If Right(App.Path, 1) = "\" Then
Open App.Path & "fichier" & ".sts" For Output As #1 Len = Len(CodeSource_fichier) + 2
Else
Open App.Path & "\" & "fichier" & ".sts" For Output As #1 Len = Len(CodeSource_fichier) + 2
End If

Print #1, CodeSource_fichier
Close #1


Chez moi en Win98 Fat32, l'ensemble du fichier est enregistré en intégralité (4100 octets). Chez mon beta-testeur WIN2000 NTFS le fichier est enregistré jusqu'à environ 1500 octets.
Quelqu'un pourrait-il m'expliquer ???

samedi 4 mai 2002 à 07:46:18 | Re : Je suis désespéré et au bord du suicide :(

despe
je ne suis pas sur de moi mais il y a de fortes chances que ce soit normal. En effet les partitions fat32 et ntfs ne sont pas gere pareil... la taille de clusters est différente. De plus si son windows Nt est configurer pour la compression de données il est donc juste que tu ne trouves pas la meme taille de fichier..

mais attend que quelqu'un d autres te repondre pour confirmer ou pas ce que je t dis :)
++





-------------------------------
Réponse au message :
-------------------------------

Voilà le pb :


If Right(App.Path, 1) = "\" Then
Open App.Path & "fichier" & ".sts" For Output As #1 Len = Len(CodeSource_fichier) + 2
Else
Open App.Path & "\" & "fichier" & ".sts" For Output As #1 Len = Len(CodeSource_fichier) + 2
End If

Print #1, CodeSource_fichier
Close #1


Chez moi en Win98 Fat32, l'ensemble du fichier est enregistré en intégralité (4100 octets). Chez mon beta-testeur WIN2000 NTFS le fichier est enregistré jusqu'à environ 1500 octets.
Quelqu'un pourrait-il m'expliquer ???

samedi 4 mai 2002 à 08:10:54 | Re : Je suis désespéré et au bord du suicide :(

ZBob

Oué mais normalement Print devrait m'enregistrer l'intégralité du fichier quelque soit le système de fichiers nan ?

-------------------------------
Réponse au message :
-------------------------------

je ne suis pas sur de moi mais il y a de fortes chances que ce soit normal. En effet les partitions fat32 et ntfs ne sont pas gere pareil... la taille de clusters est différente. De plus si son windows Nt est configurer pour la compression de données il est donc juste que tu ne trouves pas la meme taille de fichier..

mais attend que quelqu'un d autres te repondre pour confirmer ou pas ce que je t dis :)
++
dimanche 5 mai 2002 à 00:03:40 | Re : Je suis désespéré et au bord du suicide :(

AliceOzer
Voilà le pb :


If Right(App.Path, 1) = "\" Then
Open App.Path & "fichier" & ".sts" For Output As #1 Len = Len(CodeSource_fichier) + 2
Else
Open App.Path & "\" & "fichier" & ".sts" For Output As #1 Len = Len(CodeSource_fichier) + 2
End If

Print #1, CodeSource_fichier
Close #1


Je trouve l'utilisation de la fonction Len() pour l'ouverture d'un fichier en mode Output curieuse
pkoi a tu utiliser cela pour ce mode?
la fonction len est en general utiliser pour specifier la taille d'un enregistrement pour le mode d'ouverture en sequentiel ou en aleatoire
pour la gestion des enregistrements
Or si tu ouvre un fichier pour faire que des print ca ne sert a rien.

en koi est dimensionner ta variable CodeSource_fichier?
dimanche 5 mai 2002 à 10:32:00 | Re : Je suis désespéré et au bord du suicide :(

ZBob

En fait au départ je n'avais pas mis le Len mais comme W2K ne m'écrivait qu'une partie me suis dit qu'en précisant la taille ça allait ptete marcher :/

-------------------------------
Réponse au message :
-------------------------------

Voilà le pb :


If Right(App.Path, 1) = "\" Then
Open App.Path & "fichier" & ".sts" For Output As #1 Len = Len(CodeSource_fichier) + 2
Else
Open App.Path & "\" & "fichier" & ".sts" For Output As #1 Len = Len(CodeSource_fichier) + 2
End If

Print #1, CodeSource_fichier
Close #1


Je trouve l'utilisation de la fonction Len() pour l'ouverture d'un fichier en mode Output curieuse
pkoi a tu utiliser cela pour ce mode?
la fonction len est en general utiliser pour specifier la taille d'un enregistrement pour le mode d'ouverture en sequentiel ou en aleatoire
pour la gestion des enregistrements
Or si tu ouvre un fichier pour faire que des print ca ne sert a rien.

en koi est dimensionner ta variable CodeSource_fichier?


Cette discussion est classé dans : fichier, app, path, len, codesource

Répondre à ce message

Sujets en rapport avec ce message

probleme avec le chemin "App.Path" [ par petchy ] bonjourj'ai trouver se code surhttp://vcallies.developpez.com/sonsvb/il fonctionne trés b Avis à tous [ par Jackboy ] SVP arrêter d'utiliser les chemin static pour l'accès à vos fichier du genre c:\slut\static.html et utiliser donc le App.Path du genre App.Path & "\sl fichier UDL et app.path [ par soustara ] en programmation sans adodc ct.connectionstring=app.path...........\fichier.udlje ne connais pas la bonne syntaxe pour ce type de fichier , alors si fichier DLL manquant MAIS présent [ par alexmagnus ] Bonjour, j'ai actuellement un petit souci de fichier DLL. Voici mon bout de code :dans l'Option Explicit :    Private Declare Function BMP2JPGAvecRedi Chemin d'accés à un fichier [ par Kamary ] Salutations à tous!Je suis débutant dans le métier, mon vb6 n'a pas de msdn library alors je galère sur certains points comme ce qui suit : Fonction ( Chemin <> App.Path [ par dp_favresa ] Bonjour,Dans une macro Excel, je dois donner le chemin d'accès à un fichier,pour l'instant ce chemin est en dur. Je désire le rendre volatile.Problème lister le contenu d'un dossier dans une combobox [ par loulou123456 ] URGENT!!!bonjour a tousvoila je suis un novice et j'ai un collègue et j'ai besoin d'un cou de main pour résoudre un petit problème.je m'explique : je Recuperer le nom d'un fichier solidworks en vb [ par AMIBEN ] Bonjour.Voila mon probleme:Je souhaite simplement recuperer le nom d'un fichier deja ouvert a partir de solidworks, en utilisant vb6.j'ai donc essayer App.path et GetPath [ par dabro ] Bonjour,Je transforme mes applications en applications portables avec Thinstall. Une fois les applications créées, la fonction App.Path renvoie toujou je souhaite faire une app pour lancer 2 prog et suppr un fichier [ par skyzo410 ] Boujour,Je souhaite faire un petit logiciel ou il y a 3 boites texte avec 3 BP parcourir pour allez cherchez mes deux applis ainsi qu'une pour allez c


Nos sponsors

Sondage...

CalendriCode

Octobre 2008
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,203 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.