Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Zuweisung
Autor: Joe
Datum: 25.10.02 15:09
das ganze sieht so aus: Private Sub Command1_Click() Dim Quelldatei, Zieldatei Quelldatei = frmZiel.TextBoxQuelle ' Namen der Quelldatei festlegen. Zieldatei = frmZiel.Ziel ' Namen der Zieldatei festlegen. FileCopy Quelldatei, Zieldatei ' Quell- in Zieldatei kopieren. End Sub Public Function SchreibschutzEntfernen(ByVal _ sFilename As String) As Boolean On Local Error Resume Next Attr = GetAttr(sFilename) If Err <> 0 Then 'Datei nicht gefunden SchreibschutzEntfernen = False Else Attr = (Attr And Not vbReadOnly) SetAttr sFilename, Attr DoEvents 'Prüfen, ob Schreibschutz entfernt Attr = GetAttr(sFilename) SchreibschutzEntfernen = Not (Attr And vbReadOnly) End If On Local Error GoTo 0 End Function Private Sub Command2_Click() End End Sub ' Verknüpfung erstellen Public Sub CreateLink(ByVal Datei As String, _ ByVal LinkName As String, _ Optional ByVal Parameter As String = "", _ Optional ByVal Comment As String = "", _ Optional ByVal WorkingDir As String = "") Dim cShellLink As ShellLinkA Dim cPersistFile As IPersistFile Set cShellLink = New ShellLinkA Set cPersistFile = cShellLink With cShellLink ' Pfad+Dateiname der Anwendung .SetPath Datei ' Parameter If Parameter <> "" Then _ .SetArguments Parameter ' Kommentar If Comment <> "" Then _ .SetDescription Comment ' Arbeitsverzeichnis (Ausführen in) If WorkingDir <> "" Then _ .SetWorkingDirectory WorkingDir End With ' Verknüpfung erstellen cPersistFile.Save StrConv(LinkName, _ vbUnicode), 0 Set cPersistFile = Nothing Set cShellLink = Nothing End Sub das meiste kommt dir eh bekannt vor. ich hab die teile schreibschutzentfernen und verknüpfungerstellen noch nicht überarbeitet. wollte erst den ersten teil mal zum laufen bringen.

Zuweisung	244	Joe	25.10.02 12:57
Re: Zuweisung	583	Dieter	25.10.02 13:16
Re: Zuweisung	60	Joe	25.10.02 13:48
Re: Zuweisung	586	Dieter	25.10.02 13:54
Re: Zuweisung	70	Joe	25.10.02 14:02
Re: Zuweisung	787	Dieter	25.10.02 14:40
Re: Zuweisung	68	Joe	25.10.02 14:49
Re: Zuweisung	60	Joe	25.10.02 15:09
Re: Zuweisung	547	Dieter	25.10.02 15:14
Re: Zuweisung	61	Joe	25.10.02 15:19
Re: Zuweisung	695	Dieter	25.10.02 15:33
Re: Zuweisung	59	Joe	25.10.02 15:46
Re: Zuweisung	552	Dieter	25.10.02 17:12
Re: Zuweisung	57	Joe	25.10.02 17:32
Re: Zuweisung	834	Dieter	25.10.02 17:52
Re: Zuweisung	53	Joe	25.10.02 18:05
Re: Zuweisung	56	Joe	25.10.02 17:51
NEIN! Das geht sogar in der Version 3.0	536	Dieter	25.10.02 17:55
Re: NEIN! Das geht sogar in der Version 3.0	71	Joe	25.10.02 19:20
letzte frage	85	Joe	25.10.02 20:14
Re: letzte frage	549	Dieter	25.10.02 21:38
Re: letzte frage	69	Joe	26.10.02 07:19
Re: letzte frage	585	Dieter	26.10.02 09:54
Re: letzte frage	66	Joe	26.10.02 17:32

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übersicht

Suchen