banniere

Le portail francophone de la géomatique


Toujours pas inscrit ? Mot de passe oublié ?
Nom d'utilisateur    Mot de passe              Toujours pas inscrit ?   Mot de passe oublié ?

#1 Fri 04 February 2005 10:08

Annick Lagnion
Invité

creer un repertoire a partir d'un programme mapbasic

bonjour,

j'ai une famille de fichiers, organises en repertoires.A partir de l'outil
multiplelayers_cutter (merci d'avoir donne la source), j'essaie de faire
une version qui redistribue les fichiers decoupes dans des sous-repertoires,
comme sont organises les fichiers complets que je veux decouper. Pour cela,
il faut que je cree des sous-repertoires. J'ai trouve dans le forum comment
connaitre les repertoires existants, mais je n'ai pas compris comment en
creer de nouveaux (autrement qu'en passant par le dos, ca marche mais ca
limite les noms a 8 caracteres).
Pourriez-vous m'indiquer une piste d'information la-dessus?

par exemple:commit table temptable2 as savepath
ici savepath= c:servitudessubdivision1pt
or seul existe le repertoire c:servitude et le but de l'outil est de
creer les sous-repertoires subdi1, subdi2.... et dans chacun de ces
sous-repertoires, les sous-sous-repertoires ac, pt, ar ...etc

merci

Annick Lagnion
DDE29

 

#2 Mon 07 February 2005 10:06

Frédéric Renversez
Invité

Re: creer un repertoire a partir d'un programme mapbasic

Bonjour,

Je ne sais pas si cela peut vous aider mais
quant a moi j'utilise l'API CreateDirectoryA,
dans le meme esprit que les API qui balaient le
contenu d'un dossier.

Declarez ceci :

Type SECURITY_ATTRIBUTES
nLength as Integer
lpSecurityDescriptor as integer
bInheritHandle as integer
End Type

puis ceci :

Declare Function CreateDirectory Lib Kernel32 Alias CreateDirectoryA
(ByVal sPath As String, tSecurity As SECURITY_ATTRIBUTES) As Integer

Puis ecrivez la fonction suivante :

Function CreateDir(spath As String) As Integer

Dim tSecurity As SECURITY_ATTRIBUTES
Dim nStatus as Integer

tSecurity.nLength = 24
nStatus = CreateDirectory(sPath, tSecurity)
CreateDir = nStatus

End Function

Je ne sais pas si cela marche pour des noms a plus
de 8 caracteres, je crois n'avoir jamais essaye.

Frederic Renversez, I2G
Ingenieur Developpement / SIG
www.i2g.fr

 

#3 Wed 09 February 2005 15:40

Annick Lagnion
Invité

Re: creer un repertoire a partir d'un programme mapbasic

merci pour vos reponses! je n'ai plus qu'a suivre vos indications!

annick Lagnion
DDE29

 

Pied de page des forums

Powered by FluxBB