Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

letzte frage
Autor: Joe
Datum: 25.10.02 20:14
wenn du noch ein wenig geduld mit mir hast hätte ich noch eine abschliessende frage. wie bekomme ich das programm dazu, die beiden zusätzlichen programmteile zu durchlaufen. ich hab jetzt noch den schritt hinzugefügt, dass ein neuer Ordner erstellt wird. das funktioniert jetzt alles. fehlt nur noch der programmschritt, dass eine verknüpfung erstellt wird und der schreibschutz wegfliegt. kann ich das irgendwie mit goto machen? Private Sub Command1_Click() Dim sSourcePath As String Dim sDestPath As String Dim sFile As String ' Quell-Pfad sSourcePath = Trim$(Text1.Text) If Right$(sSourcePath, 1) <> "\" Then sSourcePath = sSourcePath & "\" ' Ziel-Pfad sDestPath = Trim$(Text2.Text) If Right$(sDestPath, 1) <> "\" Then sDestPath = sDestPath & "\" ' Alle Dateien einzeln kopieren MkDir sDestPath ' Verzeichnis/Ordner neu erstellen. sFile = Dir$(sSourcePath & "*.*", vbNormal) Do While sFile <> "" If sFile <> "." And sFile <> ".." Then FileCopy sSourcePath & sFile, sDestPath & sFile End If sFile = Dir$() Loop frmZiel.Hide End Sub Private 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 ' 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

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	835	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	537	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	86	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