Advertisement
6_2008-2009 Windows System Services #195296

Personal StartUp! As simple as it can get...

Do you use different user logins in Windows? Tired of having the same StartUp folder just because the users share the same Start Menu? Then this solves your problem!

AI

AIサマリー: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

ソースコード
original-source
Private Sub Form_Load()
Dim OpenWhat
'MsgBox UserID
On Error GoTo bwell
Open App.Path & "\" & UserID & ".txt" For Input As #1
On Error Resume Next
Do Until EOF(1)
Line Input #1, OpenWhat
Shell "Start " & OpenWhat
Loop
Close #1
End
bwell:
Open App.Path & "\" & UserID & ".txt" For Output As #2: Close #2
Resume
End Sub
オリジナルのコメント (3)
Wayback Machineから復元