Annonce
L'appel à participation est ouvert jusqu'au 19 janvier 2025!
#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
