|
| |
Suche Visual-Basic Code| Re: letzte frage | |  | | Autor: Joe | | Datum: 26.10.02 17:32 |
| nein, nein, es wird nur eine Datei kopiert. name: IDZ 1.0.2 in den ordner IDZ-Werkstatt
Mehr ist da nicht dahinter. und für diese datei wird dann auch die verknüpfung angelegt. mein problem ist nun, dass ich wohl die programme dafür hab, aber diese in drei einzelne aufgeteilt sind. über die clickprozedur wird nun nur in das erste eingetreten, das private sub command1_Click
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
nun muss ich aber die anderen beiden ja auch noch aufrufen. und da bin ich irgendwie ratlos. ich habe es schon mit einem GOTO befehl versucht. dann versuchte ich die beiden in das obrige zu integrieren. aber das hat nicht geklappt.
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 | |
 | 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 |
 |
|
TOP! Unser Nr. 1 
Neu! sevDataGrid 3.0
Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. Weitere InfosTipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) TOP Entwickler-Paket 
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR...
Jetzt nur 979,00 EURWeitere Infos
|
| |
|
Copyright ©2000-2025 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
|
|
Sie sind aktuell nicht angemeldet.
Re: Zuweisung
Re: Zuweisung
