vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2022
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Dateitypen Bezeichnung 
Autor: BTH
Datum: 16.12.21 21:03

Howdy,
ein Lösungsansatz wäre die assoziierte Anwendung zur Extension zu ermitteln.
Public Function FileType(ByVal sPathFile As String) As String
    ' bei sPathFile handelt es sich um den Dateinamen
    ' inkl. Pfad (Bsp.: D:\lollo\test.doc)
    Dim objFso As FileSystemObject
    Dim objFile As File
    Set objFso = New FileSystemObject
    Set objFile = objFso.GetFile(sPathFile)
    ' FileType enthält dann bspw. den Text "Microsoft Word-Dokument"
    FileType = objFile.Type
    Set objFile = Nothing
    Set objFso = Nothing
End Function


Beitrag wurde zuletzt am 16.12.21 um 21:05:07 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Dateitypen Bezeichnung201me3683516.12.21 18:54
Re: Dateitypen Bezeichnung98BTH16.12.21 21:03
Re: Dateitypen Bezeichnung79me3683517.12.21 00:02
Re: Dateitypen Bezeichnung63effeff06.01.22 19:25
Re: Dateitypen Bezeichnung44me3683506.01.22 22:01
Re: Dateitypen Bezeichnung41visualfx07.01.22 14:14

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2022 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel