Thema Datum  Von Nutzer Rating
Antwort
27.11.2018 14:27:56 Axel
NotSolved
Blau Dateien vor der Endung umbenennen & neu positionieren
 27.11.2018 19:49:08 Flotter Feger
NotSolved
28.11.2018 09:25:11 Axel
NotSolved
28.11.2018 06:06:37 Gast48881
NotSolved
28.11.2018 09:30:59 Axel
NotSolved

Ansicht des Beitrags:
Von:
Flotter Feger		 Datum:
27.11.2018 19:49:08		 Views:
710		 Rating:
     
Antwort:
  Ja
Thema:
Dateien vor der Endung umbenennen & neu positionieren

Hallo,

ja ist eigentlich sehr simpel ... das ist richtig.

Das FSO hat zwei Befehle, die heißen 'GetBaseName' und 'GetExtensionName'

?
1
2
3
4
5
6
7
8
Dim FSO As Object
Dim Datei As String
Dim Pfad As String
 
Pfad = ThisWorkbook.Name
Set FSO = CreateObject("Scripting.FileSystemObject")
 
Datei = FSO.GetBaseName(Pfad) & "-XXX" & "." & FSO.GetExtensionName(Pfad)

Nur mal so als Beispiel ... deinen Pfad kannst du sicher selbst anpassen.

Sabina

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
27.11.2018 14:27:56 Axel
NotSolved
Blau Dateien vor der Endung umbenennen & neu positionieren
 27.11.2018 19:49:08 Flotter Feger
NotSolved
28.11.2018 09:25:11 Axel
NotSolved
28.11.2018 06:06:37 Gast48881
NotSolved
28.11.2018 09:30:59 Axel
NotSolved