Új hozzászólás Aktív témák

• #7085 Fire/SOUL/CD félisten Oly #7084

  Új Válasz 2010-05-05 20:08:43 #7085

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz Oly #7084 üzenetére

  Hali!

  Remélem erre gondolsz

  Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
  
  Private Sub CommandButton1_Click()
  'List_All_Environ_info
  WriteToTextFile
  End Sub
  
  Function List_All_Environ_info() As String
  Dim Counter As Integer
  Counter = 1
  Do Until Environ(Counter) = ""
  Cells(Counter, 1).Value = Environ(Counter)
  Counter = Counter + 1
  Loop
  End Function
  
  Sub WriteToTextFile()
  MyFile = "d:\" & "myfilename.txt"
  fnum = FreeFile()
  Open MyFile For Append As fnum
  Write #fnum, Now(), Environ("USERNAME")
  Close #fnum
  End Sub

  Fire.

Új hozzászólás Aktív témák