🚀 go-pugleaf

"www.place2b.ht.st" </> wrote in message
news:3c826180$0$250$ba620e4c@news.skynet.be...
> hoe kan je (als je bv met CommonDialog een bestand 'geopend' hebt) de
> extensie verwijderen?
> gewoon de laatste 4 tekens verwijderen kan niet aangezien je soms meer dan
4
> tekens moet verwijderen (.htm -> .html -> .dhtml ...)

De standaard is nochtans 3 tekens, spijtig dat ertegen gezondigd wordt.




begin  crappy.code

Public Sub ChangeExtention(strFileName As String, strExt As String)

Dim iLoc As Integer
Dim strFil3 As String


iLoc = InStr(iLoc + 1, strFileName, ".", vbTextCompare)
If iLoc = 0 Then
    MsgBox "You specified a crappy filename, please check for brains",
vbOKOnly, "error: User input"
    Exit Sub
Else
    iLoc = 1    'reset for calcul
    Do Until iLoc = 0   'if there is still a . in remaining bit of string
doevents
        iLoc = InStr(iLoc + 1, strFileName, ".", vbTextCompare)
        'get all text up to dot, unless iLoc is set to 0
        If iLoc <> 0 Then strFil3 = Left(strFileName, iLoc)
    Loop

    strFil3 = strFil3 & strExt
    MsgBox strFil3       'Replace this line with events you want happened
                                  'new filename is loaded into variable
strFil3

End If

End Sub