Recuperer l'extention d'un fichier
cs_globule
Messages postés
327
Date d'inscription
mardi 8 octobre 2002
Statut
Membre
Dernière intervention
6 octobre 2010
-
27 sept. 2005 à 12:13
Zlub Messages postés 809 Date d'inscription mercredi 11 octobre 2000 Statut Membre Dernière intervention 29 septembre 2010 - 27 sept. 2005 à 22:46
Zlub Messages postés 809 Date d'inscription mercredi 11 octobre 2000 Statut Membre Dernière intervention 29 septembre 2010 - 27 sept. 2005 à 22:46
4 réponses
yuri1961
Messages postés
71
Date d'inscription
jeudi 16 juin 2005
Statut
Membre
Dernière intervention
16 février 2007
27 sept. 2005 à 12:24
27 sept. 2005 à 12:24
Salut!
Ou travailles-tu, sous ADO, DAO, etc
ce code est pour DAO
La connexion est deja etablie
Dim tdf As TableDef, fld As Field
Set tdf = db.TableDefs(TableName)
Set fld = tdf.CreateField(FieldName, FieldType, [FiledSize])
tdf.Fields.Append fld
Ou db.Execute "ALTER TABLE ...."
Ou travailles-tu, sous ADO, DAO, etc
ce code est pour DAO
La connexion est deja etablie
Dim tdf As TableDef, fld As Field
Set tdf = db.TableDefs(TableName)
Set fld = tdf.CreateField(FieldName, FieldType, [FiledSize])
tdf.Fields.Append fld
Ou db.Execute "ALTER TABLE ...."
yuri1961
Messages postés
71
Date d'inscription
jeudi 16 juin 2005
Statut
Membre
Dernière intervention
16 février 2007
27 sept. 2005 à 12:25
27 sept. 2005 à 12:25
Salut!
Ou travailles-tu, sous ADO, DAO, etc
ce code est pour DAO
La connexion est deja etablie
Dim tdf As TableDef, fld As Field
Set tdf = db.TableDefs(TableName)
Set fld = tdf.CreateField(FieldName, FieldType, [FiledSize])
tdf.Fields.Append fld
Ou db.Execute "ALTER TABLE ...."
Ou travailles-tu, sous ADO, DAO, etc
ce code est pour DAO
La connexion est deja etablie
Dim tdf As TableDef, fld As Field
Set tdf = db.TableDefs(TableName)
Set fld = tdf.CreateField(FieldName, FieldType, [FiledSize])
tdf.Fields.Append fld
Ou db.Execute "ALTER TABLE ...."
NHenry
Messages postés
15113
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
22 avril 2024
159
27 sept. 2005 à 12:41
27 sept. 2005 à 12:41
Dans le cas général :
dim Tabl() as string
Tabl=split(NomFichier,".")
tabl(ubound(tabl))=Extension
Voila.
Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NH
dim Tabl() as string
Tabl=split(NomFichier,".")
tabl(ubound(tabl))=Extension
Voila.
Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NH
Zlub
Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
8
27 sept. 2005 à 22:46
27 sept. 2005 à 22:46
Salut Globule,
Tu peux essayer le code suivant qui est une autre méthode (plus légére) que le split :
Option Explicit
Private Function getExtension(fichier As String) As String
getExtension = Right$(fichier, (Len(fichier) - InStrRev(fichier, ".") + 1))
End Function
Private Sub Form_Load()
MsgBox getExtension(App.Path & "\mon.fichier.extenstion")
End Sub
++
Zlub
Tu peux essayer le code suivant qui est une autre méthode (plus légére) que le split :
Option Explicit
Private Function getExtension(fichier As String) As String
getExtension = Right$(fichier, (Len(fichier) - InStrRev(fichier, ".") + 1))
End Function
Private Sub Form_Load()
MsgBox getExtension(App.Path & "\mon.fichier.extenstion")
End Sub
++
Zlub
